A247980 Least prime whose square contributes to A234429.
2, 3, 5, 7, 13, 17, 19, 43, 67, 83, 163, 167, 313, 433, 883, 887, 1667, 5167, 5477, 6833, 8167, 17317, 22133, 59833, 70583, 89417, 141067, 160583, 191833, 298327, 882433, 1728583, 2447437, 3143087, 3143167, 4468333, 12957083, 13747687, 26457133
Offset: 1
Keywords
Examples
2^2 = 4 = A234429(1), 3^2 = 9 = A234429(3), 5^2 = 25 -> 7 = A234429(2), 7^2 = 49 -> 13 = A234429(5), 19^2 = 361 -> 10 = A234429(4), etc.
Links
- Robert G. Wilson v, Table of n, a(n) for n = 1..54
Crossrefs
Cf. A234429.
Programs
-
Mathematica
p = 2; lst = lsu = {}; While[p < 15250000001, ds = Total@ IntegerDigits[p^2]; If[ !MemberQ[lst, ds], AppendTo[lst, ds]; AppendTo[lsu, p]; Print[ p]]; p = NextPrime@ p]; lsu
Comments