OFFSET
1,1
COMMENTS
Last term is a(61) = 62533. - Giovanni Resta, Mar 21 2013
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..61 (full sequence)
MATHEMATICA
start = {2, 4, 6, 8}; 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