OFFSET
1,3
MATHEMATICA
Module[{nn=70, prg}, prg=Differences[Prime[Range[nn]]]; #[[2]]-#[[1]]&/@ Thread[{prg, Range[nn-1]}]+1] (* Harvey P. Dale, Nov 21 2021 *)
CROSSREFS
KEYWORD
easy,nonn,less
AUTHOR
Omar E. Pol, Nov 17 2008
EXTENSIONS
Definition corrected by N. J. A. Sloane, Nov 21 2021, at the suggestion of Harvey P. Dale.
STATUS
approved