|
%I #14 Aug 29 2018 06:12:59
%S 1,4,9,100,324,576,4225,5776,10000,36864,42025,1000000,3055504,
%T 3640464,5597956,8803089,32855824,100000000,360696064,422919225,
%U 10000000000,30485858404,30536863504,32154945124,59080108096,86310801369,304816618404,1000000000000,3490500050944
%N Perfect squares one more than a palindrome.
%C All even powers of 10 are members of both A070254 and A027720.
%H Giovanni Resta, <a href="/A070254/b070254.txt">Table of n, a(n) for n = 1..53</a>
%F a(n) = A070253(n)^2 = A028504(n) + 1. - _Giovanni Resta_, Aug 29 2018
%t Do[ If[a = IntegerDigits[n^2 - 1]; a == Reverse[a], Print[n^2]], {n, 1, 10^6}]
%t Select[Range[300000]^2,PalindromeQ[#-1]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 06 2018 *)
%Y Cf. A028504, A027719, A027720, A070253.
%K nonn,base
%O 1,2
%A _Amarnath Murthy_, May 06 2002
%E Edited by _Jason Earls_ and _Robert G. Wilson v_, May 08 2002
%E Offset changed by and more terms from _Giovanni Resta_, Aug 28 2018
|
