login
A108660
Square-loop primes.
4
2, 13, 31, 79, 97, 227, 881, 1013, 2797, 3181, 3631, 8101, 22727, 81001, 101363, 109013, 131363, 181813, 272227, 310181, 310901, 318181, 318881, 631013, 636313, 810401, 818101, 901097, 904097, 972227, 1018813, 1090013, 1810013, 2272727
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
MATHEMATICA
Select[Prime[Range[200000]], And@@(IntegerQ[Sqrt[#]]&/@(Total/@Partition[ IntegerDigits[#], 2, 1, 1]))&] (* Harvey P. Dale, Mar 03 2014 *)
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Jun 16 2005
STATUS
approved