|
%I #23 Dec 28 2014 02:09:41
%S 2,3,5,7,11,13,17,19,23,29,31,37,41,43,59,61,67,73,79,83,89,107,109,
%T 113,127,131,137,139,157,163,167,173,181,191,193,211,223,227,229,233,
%U 239,263,269,271,277,281,293,307,311,313,337,359,367,373,379,383,389,409,419,421,431
%N Primes that lack the digit zero in the decimal expansion of their squares.
%H Zak Seidov, <a href="/A052042/b052042.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = sqrt(A052043(n)). - _Zak Seidov_, Dec 27 2014
%e The primes 47, 53 and 71 are not in the sequence because 47^2=2209, 53^2=2809 and 71^2=5041 contain zeros in their decimal representation.
%t fQ[n_] := DigitCount[n^2][[-1]] == 0; Select[Prime@ Range@ 80, fQ] (* _Robert G. Wilson v_, Aug 22 2012 *)
%o (PARI) {p=2;for(k=1,10^2,if(vecmin(digits(p^2))>0,
%o print1(p", "));p=nextprime(1+p))}\\ _Zak Seidov_, Dec 24 2014
%Y Squares: A052043, A052040, A052041. Cubes: A051750, A051751, A051832, A051833.
%Y Cf. A245576.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, Dec 15 1999
|
