A030681 Smallest nontrivial extension of n-th palindromic prime which is a square.

25, 36, 529, 729, 1156, 101124, 131044, 15129, 181476, 191844, 3136, 35344, 373321, 383161, 727609, 7573504, 7873636, 797449, 919681, 929296, 1030153216, 1050148836, 10601536, 1131111424, 1141155961, 124211025

Offset

1,1

Links

Chai Wah Wu, Table of n, a(n) for n = 1..10000

Mathematica

d[n_]:=IntegerDigits[n]; Table[i=1; While[!IntegerQ[Sqrt[x=FromDigits[Flatten[{d[n], d[i]}]]]], i++]; x, {n, Select[Prime[Range[1500]], Reverse[x=d[#]]==x &]}] (* Jayanta Basu, May 24 2013 *)

Crossrefs

Cf. A030682.

Sequence in context: A077437 A077676 A030671 * A167363 A035383 A179803

Adjacent sequences: A030678 A030679 A030680 * A030682 A030683 A030684

Keyword

nonn,base

Author

Patrick De Geest

Status

approved