|
|
A000461
|
|
Concatenate n n times.
|
|
25
|
|
|
1, 22, 333, 4444, 55555, 666666, 7777777, 88888888, 999999999, 10101010101010101010, 1111111111111111111111, 121212121212121212121212, 13131313131313131313131313, 1414141414141414141414141414, 151515151515151515151515151515, 16161616161616161616161616161616
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
REFERENCES
|
F. Smarandache, "Properties of the numbers", Univ. of Craiova Archives, 1975; Arizona State University Special Collections, Tempe, AZ.
|
|
LINKS
|
|
|
FORMULA
|
a(n) = n*(10^(n*L(n))-1)/(10^L(n)-1) where L(n) = A004216(n)+1 = floor(log_10(10n)). - Henry Bottomley, Jun 01 2000
|
|
EXAMPLE
|
. 1 * 9 = 09
. 22 * 9 = 198
. 333 * 9 = 2997
. 4444 * 9 = 39996
. 55555 * 9 = 499995
. 666666 * 9 = 5999994
. 7777777 * 9 = 69999993
. 88888888 * 9 = 799999992
. 999999999 * 9 = 8999999991
(End)
|
|
MAPLE
|
a:= n-> parse(cat(n$n)):
|
|
MATHEMATICA
|
Table[FromDigits[Flatten[IntegerDigits/@Table[n, {n}]]], {n, 15}] (* Harvey P. Dale, Mar 01 2015 *)
Table[FromDigits[PadRight[{}, n IntegerLength[n], IntegerDigits[n]]], {n, 15}] (* Harvey P. Dale, Jun 19 2016 *)
|
|
PROG
|
(Haskell)
a000461 n = (read $ concat $ replicate n $ show n) :: Integer
(PARI) a(n) = eval(concat(apply(x->Str(x), vector(n, k, n)))); \\ Michel Marcus, Oct 05 2018; Feb 12 2023
(Python)
def a(n): return int(str(n)*n)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
John Radu (Suttones(AT)aol.com)
|
|
STATUS
|
approved
|
|
|
|