OFFSET
1,2
COMMENTS
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
a(5) = 8 because 1/3(a(3) + a(4) + a(5)) is a prime.
MATHEMATICA
sngpt[{a_, b_}]:=Module[{k=b+1}, While[CompositeQ[Mean[{a, b, k}]], k++]; {b, k}]; NestList[sngpt, {1, 2}, 60][[All, 1]] (* Harvey P. Dale, May 29 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Sep 23 2002
STATUS
approved