OFFSET
0,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
MATHEMATICA
Table[FromDigits[Join[Flatten[IntegerDigits[{(n + 1)^2, n^2}]]]], {n, 0, 50}] (* Vincenzo Librandi, Sep 13 2014 *)
FromDigits/@(Join[IntegerDigits[#[[2]]], IntegerDigits[#[[1]]]]&/@ Partition[ Range[0, 40]^2, 2, 1]) (* Harvey P. Dale, Apr 16 2015 *)
PROG
(Magma) [10] cat [Seqint(Intseq(n^2) cat Intseq(n^2+2*n+1)): n in [1..50]]; // Vincenzo Librandi, Sep 13 2014
(Python)
def A246972(n):
....return int(str((n+1)**2)+str(n**2)) # Chai Wah Wu, Sep 13 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Sep 13 2014
STATUS
approved