OFFSET
1,1
COMMENTS
Primes such that each pair of adjacent digits sums up to a square. First term is a square-loop prime, cf. A108660.
MATHEMATICA
Join[{2}, Select[Prime[Range[5, 4000]], PrimeQ[#]&&AllTrue[Sqrt[#]&/@(Total/@Partition[ IntegerDigits[ #], 2, 1]), IntegerQ]&]] (* Harvey P. Dale, Jun 02 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Jun 16 2005
STATUS
approved