OFFSET
1,1
COMMENTS
Primes such that each pair of adjacent digits (and also the first and the last ones) sums up to a square. First term is arguable since there is 'no pair of adjacent digits', but there are the "first" and "last" digits.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..120
MATHEMATICA
Select[Prime[Range[200000]], And@@(IntegerQ[Sqrt[#]]&/@(Total/@Partition[ IntegerDigits[#], 2, 1, 1]))&] (* Harvey P. Dale, Mar 03 2014 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Jun 16 2005
STATUS
approved