The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A247980 Least prime whose square contributes to A234429. 1
 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 (list; graph; refs; listen; history; text; internal format)
 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified July 26 20:56 EDT 2021. Contains 346300 sequences. (Running on oeis4.)