|
%I #27 Sep 08 2022 08:45:02
%S 4,14,19,28,32,37,38,40,41,62,85,89,95,97,106,119,136,139,140,190,193,
%T 196,266,271,274,277,280,281,313,316,320,325,328,331,334,335,353,355,
%U 361,362,370,373,377,380,383,397,398,400,401,403,410,412,421,434,439
%N Numbers m such that m^2 reversed is a prime.
%H Indranil Ghosh, <a href="/A059007/b059007.txt">Table of n, a(n) for n = 1..10000</a> (terms 0..1000 from T. D. Noe)
%e 28 is in the sequence because the reverse of 28^2 is 487 which is a prime. - _Indranil Ghosh_, Feb 10 2017
%t Select[ Range[ 1000 ], PrimeQ[ ToExpression[ StringReverse[ ToString[ #^2 ] ] ] ] & ]
%t Select[Range[500],PrimeQ[IntegerReverse[#^2]]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 10 2019 *)
%o (Magma) [n: n in [1..500] | IsPrime(Seqint(Reverse(Intseq(n^2))))]; // _Marius A. Burtea_, Jan 12 2019
%o (PARI) isok(n) = isprime(fromdigits(Vecrev(digits(n^2)))); \\ _Michel Marcus_, Jan 12 2019
%Y Cf. A007488.
%Y Numbers m such that m^k reversed is a prime: A059008 (k=3), A059205 (k=4), A059206 (k=5), A059207 (k=6), A059208 (k=7), A059209 (k=8), A059210 (k=9), A059211 (k=10), A059212 (k=11), A059213 (k=12).
%K nonn,base
%O 1,1
%A _Robert G. Wilson v_, Jan 16 2001
|
