OFFSET
1,1
EXAMPLE
a(7) = 1 because from the expansion of Pi = 3.14159... we get 3 -> 1000, 1 -> 10, 4 -> 10000, 1 -> 10 we can create the sequence 1000101000010 so the seventh element is 1.
MATHEMATICA
Flatten[ Table[ PadRight[{1}, # ]] & /@ (1 + RealDigits[Pi, 10, 19] [[1]])] (* Robert G. Wilson v, Nov 15 2003 *)
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Felix Tubiana, Nov 11 2003
EXTENSIONS
More terms from Robert G. Wilson v and Ray Chandler, Nov 15 2003
STATUS
approved