login
A055436
a(n) = concatenation of n^2 and n.
8
11, 42, 93, 164, 255, 366, 497, 648, 819, 10010, 12111, 14412, 16913, 19614, 22515, 25616, 28917, 32418, 36119, 40020, 44121, 48422, 52923, 57624, 62525, 67626, 72927, 78428, 84129, 90030, 96131, 102432, 108933, 115634, 122535, 129636, 136937, 144438, 152139
OFFSET
1,1
FORMULA
a(n) = n^2*floor(log_10(n) + 1) + n.
a(n) = A055437(n) if 1 <= n < 10, a(n) = A055438(n) if 10 <= n < 100.
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
Cf. A053061, A055437 (10n^2+n), A055438 (100n^2+n).
Sequence in context: A338627 A101985 A055437 * A213772 A062517 A027978
KEYWORD
base,easy,nonn,changed
AUTHOR
Henry Bottomley, May 18 2000
STATUS
approved