Mathematica ile ilk 30 asal sayi icin a degerleri.
ClearAll["Global`*"]
ardisikKareKalan[p_] := Module[{},
var = Array[x, p - 1];
eq = Thread[var^2 == Range[p - 1]];
sol = Length /@ (Solve[
Table[If[sol[[i]] != 0 && sol[[i]] == sol[[i + 1]], i, Nothing], {i,Length@sol - 1}]]
prime = Prime[Range[2, 30]];
TableForm[Transpose@{prime, Length /@ ardisikKareKalan /@ prime},
TableHeadings -> {None, {"p", "a"}}]
p≥19 icin ⌊pa⌋=4 veriyor gibi (en azindan 19≤p≤1223 icin boyle)
⌊pa⌋=4 esitligini a icin cozersek a=1+c1+c2 verir oyle ki c1,c2∈Z≥0, p≥19, p=4+5c1+4c2 denkleminin cozumleri.
veya butun p'le icin
⌊p−3a⌋=4 esitligini a icin cozersek a=1+c1+c2 verir oyle ki c1,c2∈Z≥0, p=7+5c1+4c2 denkleminin cozumleri.
Bu arada a=⌊p−24⌋ dogru degerleri verir..
pa3050711121321731942352963173784194310471153125914611467167117731779198320892197231012410325107261092611327