%I #8 Oct 02 2014 22:57:16
%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
|