OFFSET
2,3
COMMENTS
Related to A206588, which includes differences p-2.
EXAMPLE
For k=1 to 5, the numbers p(7)-p(k+1) are 14,12,10,6,4, so that a(6)=2.
MATHEMATICA
f[n_, k_]:=If[Mod[Prime[n+1]-Prime[k+1], n]==0, 1, 0];
t[n_] := Flatten[Table[f[n, k], {k, 1, n - 1}]]
a[n_] := Count[Flatten[t[n]], 1]
Table[a[n], {n, 2, 120}] (* A206589 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Feb 09 2012
STATUS
approved