OFFSET
1,1
COMMENTS
a(n) = 95*2^(n-6) for n > 5.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
a = {4}; Do[b = 1 + Plus @@ a; While[ PrimeQ[b], b++ ]; a = Append[a, b], {n, 2, 30}]; a
nxt[{t_, a_}]:=Module[{k=t+1}, While[!CompositeQ[k], k++]; {t+k, k}]; NestList[nxt, {4, 4}, 30][[;; , 2]] (* Harvey P. Dale, Sep 14 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, May 05 2002
EXTENSIONS
Edited by Robert G. Wilson v, May 06 2002
STATUS
approved