OFFSET
1,1
LINKS
Aaron Toponce, Table of n, a(n) for n = 1..10000
MAPLE
seq(n^2*(1+10^(1+ilog10(n^2))), n=1..100); # _Robert Israel_, Jan 02 2015
MATHEMATICA
Table[FromDigits[Join[IntegerDigits[n^2], IntegerDigits[n^2]]], {n, 40}]
PROG
(Magma) [Seqint(Intseq(n^2) cat Intseq(n^2)): n in [1..40]];
(PARI) vector(100, n, eval(concat(Str(n^2), Str(n^2)))) \\ _Derek Orr_, Jan 02 2015
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
_Vincenzo Librandi_, Jan 02 2015
STATUS
approved