OFFSET
1,5
COMMENTS
More terms than usual are displayed in order to distinguish this from neighboring sequences.
MATHEMATICA
Floor[#/2+1/2]&/@Accumulate[Table[If[PrimeQ[n], 1, 0], {n, 100}]] (* Harvey P. Dale, Feb 21 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 09 2018
STATUS
approved