A060998 - OEIS

%I #13 Nov 24 2015 03:40:38

%S 1,4,9,52,94,121,961,982,163,925,148,169,9631,1861,9481,9022,9082,

%T 1843,1273,9844,1405,9235,1426,9886,1297,9049,10201,90601,94411,18811,

%U 96721,92161,16171,96781,12391,10222,10822,94642,96562,98872,92992,14023

%N Squares of 1 and primes, written backwards.

%C Subsequence of A002942. - _Michel Marcus_, Nov 20 2015

%H Robert Israel, <a href="/A060998/b060998.txt">Table of n, a(n) for n = 1..10000</a>

%p revdigs := proc(n)

%p   local L, nL, j;

%p   L:= convert(n, base, 10);

%p   nL:= nops(L);

%p   add(L[i]*10^(nL-i), i=1..nL);

%p end:

%p map(t -> revdigs(t^2), [1,2,op(select(isprime, [seq(i,i=3..10^4,2)]))]); # _Robert Israel_, Nov 20 2015

%t Join[{1}, FromDigits[Reverse[IntegerDigits[#^2]]]&/@Prime[Range[100]]] (* _Vincenzo Librandi_, Nov 20 2015 *)

%o (PARI) a(n) = if(n==1, 1, eval(concat(Vecrev(Str(prime(n-1)^2))))) \\ _Altug Alkan_, Nov 20 2015

%Y Cf. A001248, A002942, A008578.

%K nonn,base,easy

%O 1,2

%A Martin Goepfert (martin.goepfert(AT)fen-net.de), May 14 2001

%E More terms from Larry Reeves (larryr(AT)acm.org), May 15 2001

%E Offset changed from 0 to 1 by _Altug Alkan_, Nov 20 2015