This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A108659 #7 Jun 02 2024 12:33:00
%S A108659 2,13,31,79,97,101,109,131,181,227,313,401,409,631,727,797,881,1009,
%T A108659 1013,1097,2797,3109,3181,3631,4001,4013,7901,8101,9001,9013,10009,
%U A108659 10181,10909,10979,13109,18131,18181,22279,22727,27901,31013,36313
%N A108659 Square-chain primes (including square-loop primes).
%C A108659 Primes such that each pair of adjacent digits sums up to a square. First term is a square-loop prime, cf. A108660.
%t A108659 Join[{2},Select[Prime[Range[5,4000]],PrimeQ[#]&&AllTrue[Sqrt[#]&/@(Total/@Partition[ IntegerDigits[ #],2,1]),IntegerQ]&]] (* _Harvey P. Dale_, Jun 02 2024 *)
%Y A108659 Cf. A046704, A007953, A088133, A088134, A088135, A088136, A108660.
%K A108659 nonn,base
%O A108659 1,1
%A A108659 _Zak Seidov_, Jun 16 2005