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

Offset

1,1

Links

Table of n, a(n) for n=1..36.

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

Adjacent sequences: A055433 A055434 A055435 * A055437 A055438 A055439

Keyword

base,easy,nonn

Author

Henry Bottomley, May 18 2000

Status

approved