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

%I

%S 2,3,5,7,13,17,19,43,67,83,163,167,313,433,883,887,1667,5167,5477,

%T 6833,8167,17317,22133,59833,70583,89417,141067,160583,191833,298327,

%U 882433,1728583,2447437,3143087,3143167,4468333,12957083,13747687,26457133

%N Least prime whose square contributes to A234429.

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

%H Robert G. Wilson v, <a href="/A247980/b247980.txt">Table of n, a(n) for n = 1..54</a>

%e 2^2 = 4 = A234429(1),

%e 3^2 = 9 = A234429(3),

%e 5^2 = 25 -> 7 = A234429(2),

%e 7^2 = 49 -> 13 = A234429(5),

%e 19^2 = 361 -> 10 = A234429(4), etc.

%t 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

%Y Cf. A234429.

%K nonn

%O 1,1

%A _Robert G. Wilson v_, Sep 28 2014

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 September 25 15:27 EDT 2021. Contains 347658 sequences. (Running on oeis4.)