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,1

Comments

Listed lexicographically and not in the order defined by A234429. See examples.

Links

Robert G. Wilson v, Table of n, a(n) for n = 1..54

Example

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.

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

Crossrefs

Cf. A234429.

Sequence in context: A337119 A090422 A005109 * A234851 A179336 A080608

Adjacent sequences: A247977 A247978 A247979 * A247981 A247982 A247983

Keyword

nonn

Author

Robert G. Wilson v, Sep 28 2014

Status

approved