OFFSET
1,1
COMMENTS
Conjecture: Every natural number occurs in this sequence.
MAPLE
A094339 := proc(nmax) local a, n, sprev, i; a := [2] ; while nops(a) < nmax do sprev := add(i, i=a) ; n := 1 ; while sprev mod n <> 0 or n in a do n := n+1 ; od ; a := [op(a), n] ; od ; RETURN(a) ; end: A094340 := proc(a094339, n) add( op(i, a094339), i=1..n)/op(n+1, a094339) ; end: a094339 := A094339(100) ; for n from 1 to nops(a094339)-1 do printf("%d, ", A094340(a094339, n)) ; od ; # R. J. Mathar, Apr 30 2007
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, May 17 2004
EXTENSIONS
Corrected and extended by R. J. Mathar, Apr 30 2007
STATUS
approved