The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #20 Sep 08 2022 08:46:09
%S 10,41,94,169,2516,3625,4936,6449,8164,10081,121100,144121,169144,
%T 196169,225196,256225,289256,324289,361324,400361,441400,484441,
%U 529484,576529,625576,676625,729676,784729,841784,900841,961900,1024961,10891024,11561089,12251156,12961225,13691296
%N (n+1)^2 concatenated with n^2.
%H Vincenzo Librandi, <a href="/A246972/b246972.txt">Table of n, a(n) for n = 0..1000</a>
%t Table[FromDigits[Join[Flatten[IntegerDigits[{(n + 1)^2, n^2}]]]], {n, 0, 50}] (* _Vincenzo Librandi_, Sep 13 2014 *)
%t FromDigits/@(Join[IntegerDigits[#[[2]]],IntegerDigits[#[[1]]]]&/@ Partition[ Range[0,40]^2,2,1]) (* _Harvey P. Dale_, Apr 16 2015 *)
%o (Magma) [10] cat [Seqint(Intseq(n^2) cat Intseq(n^2+2*n+1)): n in [1..50]]; // _Vincenzo Librandi_, Sep 13 2014
%o (Python)
%o def A246972(n):
%o ....return int(str((n+1)**2)+str(n**2)) # _Chai Wah Wu_, Sep 13 2014
%Y Cf. A246973, A235497. For primes, see A104301.
%K nonn,base
%O 0,1
%A _N. J. A. Sloane_, Sep 13 2014