%I #21 Aug 29 2021 18:40:32
%S 0,2,3,2,3,0,0,0,0,2,1,1,1,0,0,2,2,0,0,0,0,1,2,4,1,0,6,1,0,0,0,2,2,1,
%T 0,0,0,1,0,2,0,1,1,1,1,0,0,4,0,1,0,3,3,0,2,1,2,3,2,0,3,3,0,0,0,3,0,1,
%U 1,0,2,1,1,1,0,2,0,0,0,2,0,2,3,1,0,0,0,1,4,0,0,2,0,0,7,0,0,1,3,1,1,1,1,8,6
%N Numbers of nonprime digits between successive single-digit primes in the decimal expansion of e (A001113).
%H Alois P. Heinz, <a href="/A244075/b244075.txt">Table of n, a(n) for n = 1..10000</a>
%e ____|_|..|...|..|...|||||..|.|.|.|||..|..|||||.|..|....
%e e = 2.7182818284590452353602874713526624977572470936...
%e The bars in the diagram above indicate the positions of prime digits in e, the dots indicate nonprime digits. The sequence is thus generated by counting the dots between successive bars: 0, 2, 3, ... .
%t If[#[[1]]==0,PadRight[{},Length[#]-1,0],Length[#]]&/@Split[If[PrimeQ[ #],0,1]&/@RealDigits[E,10,300][[1]]]//Flatten (* _Harvey P. Dale_, Aug 29 2021 *)
%Y Cf. A001113.
%K nonn,base
%O 1,2
%A _Philip Mizzi_, Jun 19 2014
|