A117755 - OEIS

%I #19 Jul 27 2023 09:40:53

%S 0,9,25,2025,13225,1974025,4862025,6943225,60415182025,207612366025,

%T 916408817340025,9960302475729225,153668543313582025,

%U 1978088677245614025,13876266042653742025,20761288044852366025,47285734107144405625,406066810454367265225

%N Squares which remain squares when each digit is replaced by the next digit.

%C Replace 1 with 2, 2 with 3, ..., 8 with 9 and 9 with 0.

%H Max Alekseyev, <a href="/A117755/b117755.txt">Table of n, a(n) for n = 1..22</a>

%e 13225 is in the sequence because (1) it is a square and (2)if we transform it we get 24336 and this is also a square.

%t Select[Range[500000]^2, IntegerQ[(FromDigits[((1 + IntegerDigits[ # ]) /. 10-> 0])^1/2 &] (* _Harvey P. Dale_, Jan 21 2007 *)

%Y Cf. A048379, A061843, A061844, A127856.

%K base,nonn

%O 1,2

%A Luc Stevens (lms022(AT)yahoo.com), Apr 14 2006

%E More terms from _Harvey P. Dale_, Jan 21 2007

%E 3 more terms from _Donovan Johnson_, Apr 03 2008

%E a(14)-a(21) from _Max Alekseyev_, Oct 22 2008

%E a(1) = 0 prepended by _Max Alekseyev_, Jul 26 2023