OFFSET
1,1
COMMENTS
Entries are not repeated and shown in natural order.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
n=10: 10-(37-29)/(31-23)=9=a(1).
n=22: 22-(89-79)/(83-73)=21=a(2).
n=26: 26-(107-101)/(103-97)=25=a(3).
n=28: 28-(113-107)/(109-103)=27=a(4).
n=34: 34-(151-139)/(149-137)=33=a(5).
MATHEMATICA
f[{a_, b_, c_, d_}]:=(d-b)/(c-a); Select[Table[n-f[Prime[Range[n-1, n+2]]], {n, 2, 1000}], OddQ[#]&&CompositeQ[#]&]//Union (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 15 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Sep 10 2008
EXTENSIONS
Corrected and extended by R. J. Mathar, Sep 26 2008
STATUS
approved