|
%I #15 Aug 29 2018 06:11:01
%S 1,2,5,101,626,10001,1000001,1040401,2217122,5053505,100000001,
%T 101808101,10000000001,10182828101,10408080401,28053235082,
%U 1000000000001,1000400040001,1018262628101,7534662664357,100000000000001,100018000810001,101826464628101
%N Palindromes of form k^2 + 1.
%C 10^(2*m) + 1 for m >= 0 are terms. - _Chai Wah Wu_, May 25 2017
%H Giovanni Resta, <a href="/A027720/b027720.txt">Table of n, a(n) for n = 1..48</a>
%H P. De Geest, <a href="http://www.worldofnumbers.com/squadd1.htm">Palindromic incremented squares of the form n^2+1</a>
%F a(n) = A027719(n)^2 + 1. - _Giovanni Resta_, Aug 29 2018
%t palQ[n_] := Block[{d = IntegerDigits[n]}, d == Reverse[d]]; Select[Range[0, 10^5]^2 + 1, palQ] (* _Giovanni Resta_, Aug 29 2018 *)
%Y Cf. A002522, A027719, A070254, A002779.
%K nonn,base
%O 1,2
%A _Patrick De Geest_
%E More terms from _Giovanni Resta_, Aug 28 2018
|
