|
%I #19 Jul 23 2021 19:17:03
%S 183,328,528,715,6099,13224,40495,106755,453288,2066115,2975208,
%T 22145328,28027683,110213248,110667555,147928995,178838403,226123528,
%U 275074575,333052608,378698224,445332888,446245635
%N Numbers k such that k concatenated with k+1 is a square.
%C Also called Sastry numbers. - _Lekraj Beedassy_, Jul 18 2008
%D J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 183, p. 56, Ellipses, Paris 2008.
%H Giovanni Resta, <a href="/A030465/b030465.txt">Table of n, a(n) for n = 1..198</a> (terms < 10^20)
%t Select[{#,FromDigits[Join[IntegerDigits[#], IntegerDigits[1 + #]]]} & /@
%t Flatten[Table[10*n + {0, 3, 4, 5, 8, 9}, {n, 10^5}]], IntegerQ[Sqrt[#[[2]]]] &] (* _Hans Rudolf Widmer_, Jun 30 2021 *)
%o (PARI) isok(k) = issquare(eval(concat(Str(k), Str(k+1)))); \\ _Michel Marcus_, Jun 30 2021
%Y Cf. A030466, A030467, A054214, A054215, A054216, A020339, A020340.
%K nonn,base
%O 1,1
%A _Patrick De Geest_
|
