OFFSET
1,1
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..10000
NCES, Mind Benders [Source for sequence]
MAPLE
read transforms: A132388ind := proc(n) option remember: local d, k: if(n=1)then return 4: fi: for k from procname(n-1)+1 do d:=digrev(k^2): if(length(k^2)=length(d) and isprime(digrev(k^2)))then return k: fi: od: end: A132388 := proc(n) return digrev(A132388ind(n)^2): end: seq(A132388(n), n=1..50); # Nathaniel Johnston, May 06 2011
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
N. J. A. Sloane, based on an email from Jeremy Gardiner, Nov 12 2007
EXTENSIONS
Better description from Zak Seidov, Nov 14 2007
STATUS
approved