A089024 - OEIS

%I #11 Jul 05 2022 11:34:05

%S 1,0,0,0,1,0,1,0,0,0,0,1,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,1,0,

%T 0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0,

%U 0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,1,0,0,1,0,0,0,1,0

%N 1's separated by d(n) 0's, where d(n) = n-th digit of decimal expansion of Pi.

%e 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.

%t Flatten[ Table[ PadRight[{1}, # ]] & /@ (1 + RealDigits[Pi, 10, 19] [[1]])] (* _Robert G. Wilson v_, Nov 15 2003 *)

%Y Cf. A000796.

%K nonn,easy,base

%O 1,1

%A _Felix Tubiana_, Nov 11 2003

%E More terms from _Robert G. Wilson v_ and _Ray Chandler_, Nov 15 2003