OFFSET
1,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
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
KEYWORD
nonn,base
AUTHOR
Philip Mizzi, Jun 19 2014
STATUS
approved