|
| |
|
|
A130820
|
|
Decimal expansion of number whose Engel expansion is given by the sequence: 1,1,2,2,3,3,4,4,...Ceiling[n/2],...
|
|
1
| |
|
|
2, 8, 7, 0, 2, 2, 2, 1, 5, 6, 9, 7, 3, 3, 9, 6, 3, 3, 0, 8, 1, 9, 4, 5, 8, 8, 6, 5, 8, 1, 1, 1, 9, 9, 6, 0, 1, 2, 4, 0, 3, 1, 9, 2, 6, 2, 2, 8, 0, 9, 9, 5, 7, 0, 1, 2, 0, 3, 1, 2, 7, 7, 3, 6, 2, 7, 2, 8, 5, 0, 3, 8, 0, 7, 6, 8, 0, 3, 7, 5, 2, 7, 8, 4, 5, 6, 3, 9, 2, 3, 6, 1, 5, 0, 7, 1, 4, 8, 2, 4
(list; constant; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
REFERENCES
| Engel, F. "Entwicklung der Zahlen nach Stammbruechen" Verhandlungen der 52. Versammlung deutscher Philologen und Schulmaenner in Marburg. pp. 190-191, 1913.
|
|
|
LINKS
| Eric Weisstein's World of Mathematics, Engel Expansion.
|
|
|
MATHEMATICA
| \!\(f[ n_ ] := \[ Product ]\+\(r = 1\)\%n Ceiling[ r/2 ]\) \!\(N[ \[ Sum ]\+\(n = 1\)\%1000 1\/f[ n ], 100 ]\)
|
|
|
CROSSREFS
| Cf. A006784, A064648, A101689.
Sequence in context: A098221 A009214 A021781 * A134877 A085298 A011060
Adjacent sequences: A130817 A130818 A130819 * A130821 A130822 A130823
|
|
|
KEYWORD
| cons,easy,nonn
|
|
|
AUTHOR
| Stephen Casey (hexomino(AT)gmail.com), Jul 17 2007
|
| |
|
|
