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

Author

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

Keywords

• nonn
• base
• easy

Comments

Subsequence of A002942. - Michel Marcus, Nov 20 2015

Links

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

Crossrefs

Cf. A001248, A002942, A008578.

Programs

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 *)

PARI

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

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