OFFSET
1,1
EXAMPLE
Prime gaps start 1, 2, 2, 4, 2, 4, 2, ...
The cumulative products are 1, 2, 4, 16, 32, 128, 256, ...
Subtracting 1 gives 0, 1, 3, 15, 31, 127, 255, ...
Primes occur at indices 3, 5, 6, 9, 11, 12, 17, ...
MATHEMATICA
seq[lim_] := Position[FoldList[Times, Differences[Prime[Range[lim]]]], _?(PrimeQ[# - 1] &)] // Flatten; seq[1000] (* Amiram Eldar, Jan 09 2026 *)
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Arvizzigno Gianni, Jan 08 2026
EXTENSIONS
a(22)-a(29) from Amiram Eldar, Jan 09 2026
a(30)-a(31) from Michael S. Branicky, Jan 10 2026
STATUS
approved
