OFFSET
2,1
MATHEMATICA
Table[Prime[#]&/@SequencePosition[If[#>9, 1, 0]&/@Differences[Prime[Range[80000]]], PadRight[{}, n, 1], 1][[;; , 1]], {n, 20}]//Flatten (* The program generates the first 20 terms of the sequence. *) (* Harvey P. Dale, Jan 04 2026 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jeff Burch, Apr 19 2000
EXTENSIONS
Corrected and extended by Larry Reeves (larryr(AT)acm.org), Nov 10 2000
More terms from Donovan Johnson, Mar 06 2008
STATUS
approved
