|
|
A094341
|
|
Index of the occurrence of n in A094339.
|
|
3
|
|
|
2, 1, 3, 5, 9, 4, 23, 6, 8, 10, 40, 7, 22, 30, 11, 15, 67, 19, 49, 13, 38, 42, 43, 14, 12, 56, 21, 46, 48, 18, 58, 16, 41, 68, 37, 20, 89, 57, 60, 55, 76, 63, 151, 78, 107, 96, 98, 17, 61, 65, 69, 71, 24, 103, 87, 64, 80, 74, 44, 83, 59, 92, 101, 94, 72, 91, 185, 142, 104, 45
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|