OFFSET
1,1
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: a094339 := A094339(300) : n := 1 : while member(n, a094339, 'w') do printf("%d, ", w) ; n := n+1 ; od : # R. J. Mathar, Apr 30 2007
MATHEMATICA
nmax = 70; s = {2};
Do[AppendTo[s, Min[Select[Divisors[Total[s]], !MemberQ[s, #] &]]], {t, 2, 3 nmax}];
a[n_] := FirstPosition[s, n][[1]];
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, May 17 2004
EXTENSIONS
Corrected and extended by R. J. Mathar, Apr 30 2007
STATUS
approved