A060998 Squares of 1 and primes, written backwards.

1, 4, 9, 52, 94, 121, 961, 982, 163, 925, 148, 169, 9631, 1861, 9481, 9022, 9082, 1843, 1273, 9844, 1405, 9235, 1426, 9886, 1297, 9049, 10201, 90601, 94411, 18811, 96721, 92161, 16171, 96781, 12391, 10222, 10822, 94642, 96562, 98872, 92992, 14023

Offset

1,2

Comments

Subsequence of A002942. - Michel Marcus, Nov 20 2015

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

revdigs := proc(n)
  local L, nL, j;
  L:= convert(n, base, 10);
  nL:= nops(L);
  add(L[i]*10^(nL-i), i=1..nL);
end:
map(t -> revdigs(t^2), [1, 2, op(select(isprime, [seq(i, i=3..10^4, 2)]))]); # Robert Israel, Nov 20 2015

Mathematica

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

Prog

(PARI) a(n) = if(n==1, 1, eval(concat(Vecrev(Str(prime(n-1)^2))))) \\ Altug Alkan, Nov 20 2015

Crossrefs

Cf. A001248, A002942, A008578.

Sequence in context: A374850 A016489 A030694 * A358594 A370579 A368634

Adjacent sequences: A060995 A060996 A060997 * A060999 A061000 A061001

Keyword

nonn,base,easy

Author

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

Extensions

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

Offset changed from 0 to 1 by Altug Alkan, Nov 20 2015

Status

approved