cp's OEIS Frontend

A060998 Squares of 1 and primes, written backwards.

%I A060998 #13 Nov 24 2015 03:40:38
%S A060998 1,4,9,52,94,121,961,982,163,925,148,169,9631,1861,9481,9022,9082,
%T A060998 1843,1273,9844,1405,9235,1426,9886,1297,9049,10201,90601,94411,18811,
%U A060998 96721,92161,16171,96781,12391,10222,10822,94642,96562,98872,92992,14023
%N A060998 Squares of 1 and primes, written backwards.
%C A060998 Subsequence of A002942. - _Michel Marcus_, Nov 20 2015
%H A060998 Robert Israel, <a href="/A060998/b060998.txt">Table of n, a(n) for n = 1..10000</a>
%p A060998 revdigs := proc(n)
%p A060998   local L, nL, j;
%p A060998   L:= convert(n, base, 10);
%p A060998   nL:= nops(L);
%p A060998   add(L[i]*10^(nL-i), i=1..nL);
%p A060998 end:
%p A060998 map(t -> revdigs(t^2), [1,2,op(select(isprime, [seq(i,i=3..10^4,2)]))]); # _Robert Israel_, Nov 20 2015
%t A060998 Join[{1}, FromDigits[Reverse[IntegerDigits[#^2]]]&/@Prime[Range[100]]] (* _Vincenzo Librandi_, Nov 20 2015 *)
%o A060998 (PARI) a(n) = if(n==1, 1, eval(concat(Vecrev(Str(prime(n-1)^2))))) \\ _Altug Alkan_, Nov 20 2015
%Y A060998 Cf. A001248, A002942, A008578.
%K A060998 nonn,base,easy
%O A060998 1,2
%A A060998 Martin Goepfert (martin.goepfert(AT)fen-net.de), May 14 2001
%E A060998 More terms from Larry Reeves (larryr(AT)acm.org), May 15 2001
%E A060998 Offset changed from 0 to 1 by _Altug Alkan_, Nov 20 2015