OFFSET
1,1
FORMULA
MAPLE
a:= n-> parse(cat(n*n, n)):
seq(a(n), n=1..100); # Alois P. Heinz, Jan 03 2015
MATHEMATICA
Table[n^2*10^IntegerLength[n] + n, {n, 36}] (* Jayanta Basu, Jul 12 2013 *)
Table[FromDigits[Join[IntegerDigits[n^2], IntegerDigits[n]]], {n, 40}] (* Vincenzo Librandi, Jan 03 2015 *)
PROG
(Magma) [Seqint(Intseq(n) cat Intseq(n^2)): n in [1..40]]; // Vincenzo Librandi, Jan 03 2015
CROSSREFS
KEYWORD
base,easy,nonn,changed
AUTHOR
Henry Bottomley, May 18 2000
STATUS
approved