OFFSET
1,1
COMMENTS
Last term is a(70) = 15785183. - Giovanni Resta, Mar 21 2013
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..70 (full sequence)
MATHEMATICA
start = {2, 5, 8, 11, 14}; seq = {}; new = start; While[new != {}, seq = Union[seq, new]; fresh = new; new = {}; Do[If[PrimeQ[u = x*y + 1], If[! MemberQ[seq, u], AppendTo[new, u]]], {x, seq}, {y, fresh}]]; seq (* Giovanni Resta, Mar 21 2013 *)
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
Clark Kimberling, Jul 05 2011
STATUS
approved