login
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
OFFSET
1,1
COMMENTS
The only other such sequence starts with: 20,23,15,0,26,5,18,15,0... (which reads "two zero...")
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 A343924
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