|
| |
|
|
A100846
|
|
Numbers with decimal expansion 1nn1.
|
|
6
| |
|
|
1111, 1221, 1331, 1441, 1551, 1661, 1771, 1881, 1991, 110101, 111111, 112121, 113131, 114141, 115151, 116161, 117171, 118181, 119191, 120201, 121211, 122221, 123231, 124241, 125251, 126261, 127271, 128281, 129291, 130301, 131311, 132321
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
EXAMPLE
| If n=5, 1nn1 is 1551
If n=10, 1nn1 is 110101
|
|
|
MATHEMATICA
| For[n = 1, n < 30, n++, l := Floor[Log[10, n] + 1]; gvout := (n*10^l + n)*10 + 1; m := Floor[Log[10, gvout]]; giveout := 10^(m + 1) + out; Print[giveout]] (Steinerberger)
|
|
|
CROSSREFS
| Sequence in context: A036103 A147589 A086887 * A176670 A072434 A033285
Adjacent sequences: A100843 A100844 A100845 * A100847 A100848 A100849
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Parthasarathy Nambi (PachaNambi(AT)yahoo.com), Jan 07 2005
|
|
|
EXTENSIONS
| More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Jan 27 2006
|
| |
|
|
