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[(q - p)/(r - q)] && !IntegerQ[(r - q)/(q - p)]]; Select[ Prime@ Range@ 150, fQ]
Select[Partition[Prime[Range[200]], 3, 1], NoneTrue[{(#[[2]]-#[[1]])/ (#[[3]]- #[[2]]), (#[[3]]-#[[2]])/(#[[2]]-#[[1]])}, IntegerQ]&][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 20 2016 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Jan 10 2011
STATUS
approved