login
A244075
Numbers of nonprime digits between successive single-digit primes in the decimal expansion of e (A001113).
1
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, 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, 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
OFFSET
1,2
LINKS
EXAMPLE
____|_|..|...|..|...|||||..|.|.|.|||..|..|||||.|..|....
e = 2.7182818284590452353602874713526624977572470936...
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, ... .
MATHEMATICA
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 *)
CROSSREFS
Cf. A001113.
Sequence in context: A123703 A105436 A266911 * A371459 A354522 A059905
KEYWORD
nonn,base
AUTHOR
Philip Mizzi, Jun 19 2014
STATUS
approved