OFFSET
1,5
MATHEMATICA
Table[Length[Select[Range[n - 1], Prime[# + 1] - Prime[#] == Prime[n + 1] - Prime[n] &]], {n, 80}]
PROG
(PARI) a(n) = my(vp = primes(n+1), dvp = vector(#vp-1, k, vp[k+1]-vp[k])); sum(i=1, #dvp-1, dvp[i] == dvp[#dvp]); \\ Michel Marcus, Jun 27 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jun 21 2024
STATUS
approved