OFFSET
1,1
COMMENTS
The sequence contains all the numbers except powers of 2.
MAPLE
A091780 := proc(nmax) local a, nstrt; a := [3] ; while nops(a) < nmax do if nops(a) mod 2 = 0 then nstrt := 5; else nstrt := 4 ; fi ; while nstrt in a or gcd(nstrt, op(-1, a)) < 2 do nstrt := nstrt+2 ; od ; a := [op(a), nstrt] ; od ; a ; end: A091780(80) ; # R. J. Mathar, Jul 26 2007
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Feb 16 2004
EXTENSIONS
More terms from R. J. Mathar, Jul 26 2007
STATUS
approved