OFFSET

1,1

COMMENTS

LINKS

Harvey P. Dale, Table of n, a(n) for n = 1..1000

MATHEMATICA

fQ[n_] := Block[{p = NextPrime[n, -1], q = n, r = NextPrime[n]}, IntegerQ[(r - q)/(q - p)]]; Select[ Prime@ Range@ 150, fQ]

Transpose[Select[Partition[Prime[Range[200]], 3, 1], IntegerQ[(#[[3]]- #[[2]])/ (#[[2]]-#[[1]])]&]][[2]] (* Harvey P. Dale, Mar 30 2014 *)

CROSSREFS

KEYWORD

easy,nonn

AUTHOR

Robert G. Wilson v, Jan 10 2011

STATUS

approved