A104057 Each number is the rank in the alphabet of a letter (and "0" stands for a space). After substitution one reads (in English): "two zero two three one five zero two six five one eight one five zero ..." which is the succession of the digits of the sequence itself: 2 0 2 3 1 5 0 2 6 5 1 8 1 5 0.
20, 23, 15, 0, 26, 5, 18, 15, 0, 20, 23, 15, 0, 20, 8, 18, 5, 5, 0, 15, 14, 5, 0, 6, 9, 22, 5, 0, 26, 5, 18, 15, 0, 20, 23, 15, 0, 19, 9, 24, 0, 6, 9, 22, 5, 0, 15, 14, 5, 0, 5, 9, 7, 8, 20, 0, 15, 14, 5, 0, 6, 9, 22, 5, 0, 26, 5, 18, 15, 0, 20, 23, 15, 0, 26, 5, 18, 15, 0, 20, 23, 15, 0, 20, 8
Offset: 1
Programs
-
End
-
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. */ A104057(Nmin,a=[],pos=1)={ while( Nmin > #a=concat( a, concat( apply( digit2seq, eval( Vec( Str( if( #a, a[pos++ ], 20) )))))),);a}
Extensions
Corrected a(52) from 6 to 9, and extended beyond a(69) by M. F. Hasler, Aug 18 2010
Comments