OFFSET
1,1
COMMENTS
MATHEMATICA
s={}; Do[If[Prime[2n]-Prime[n]==Prime[2(n+1)]-Prime[n+1], AppendTo[s, n]], {n, 1000}]; s
SequencePosition[Table[Prime[2n]-Prime[n], {n, 800}], {x_, x_}][[;; , 1]] (* Harvey P. Dale, Jun 19 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 01 2006
EXTENSIONS
Entry revised by Robert G. Wilson v, Mar 16 2006
STATUS
approved