|
|
A132388
|
|
Same as A007488, but with the numbers arranged so that their reversals are in increasing order.
|
|
2
|
|
|
61, 691, 163, 487, 4201, 9631, 4441, 1861, 4483, 5227, 1297, 5209, 9049, 63211, 16141, 69481, 12391, 94273, 61483, 65707, 14437, 67057, 92767, 16987, 96979, 65899, 526501, 485701, 165901, 655111, 522211, 906421, 520621, 123031, 440131, 921931, 921241
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|