|
|
A104056
|
|
Each number is the rank in the alphabet of a letter (and "0" stands for a space). After substitution one reads (in English): "one five one four five zero six nine two two five zero ..." which is the succession of the digits of the sequence itself: 1 5 1 4 5 0 6 9 2 2 5 0...
|
|
3
|
|
|
15, 14, 5, 0, 6, 9, 22, 5, 0, 15, 14, 5, 0, 6, 15, 21, 18, 0, 6, 9, 22, 5, 0, 26, 5, 18, 15, 0, 19, 9, 24, 0, 14, 9, 14, 5, 0, 20, 23, 15, 0, 20, 23, 15, 0, 6, 9, 22, 5, 0, 26, 5, 18, 15, 0, 15, 14, 5, 0, 6, 9, 22, 5, 0, 15, 14, 5, 0, 6, 15, 21, 18, 0, 6, 9, 22, 5, 0, 26, 5, 18, 15, 0, 19, 9, 24
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The only other such sequence starts with: 20,23,15,0,26,5,18,15,0... (which reads "two zero...")
|
|
LINKS
|
Table of n, a(n) for n=1..86.
|
|
PROG
|
Contribution from M. F. Hasler, Aug 18 2010: (Start)
(PARI) /* helper function */
digit2seq(d) = { concat( apply( x->bitand(x, -97), Vec( Vecsmall( Str( [zero, one, two, three, four, five, six, seven, eight, nine][d+1])))), 0) }
/* compute this sequence to at least Nmin terms. */
A104056(Nmin, a=[], pos=1)={ while( Nmin > #a=concat( a, concat( apply( digit2seq, eval( Vec( Str( if( #a, a[pos++ ], 15) )))))), ); a}
(End)
|
|
CROSSREFS
|
Cf. A169978.
Cf. A104057 (Same rule, but starting with 20). [From M. F. Hasler, Aug 18 2010]
Sequence in context: A072348 A317422 A129786 * A131285 A130677 A022971
Adjacent sequences: A104053 A104054 A104055 * A104057 A104058 A104059
|
|
KEYWORD
|
base,easy,nonn,word
|
|
AUTHOR
|
Eric Angelini, Mar 02 2005
|
|
EXTENSIONS
|
Typo in sequence corrected by D. S. McNeil, Aug 18 2010
Extended beyond a(55) by M. F. Hasler, Aug 18 2010
|
|
STATUS
|
approved
|
|
|
|