A055436 a(n) = concatenation of n^2 and n.

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

Author

Henry Bottomley, May 18 2000

Keywords

• base
• easy
• nonn

Crossrefs

Cf. A053061, A055437 (10n^2+n), A055438 (100n^2+n).

Programs

Magma

[Seqint(Intseq(n) cat Intseq(n^2)): n in [1..40]]; // Vincenzo Librandi, Jan 03 2015

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 *)

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.