OFFSET
1,2
COMMENTS
a(10^n): 1, 10, 128, 1430, ... - Robert G. Wilson v, Aug 12 2005
a(n) = A094341(n) for 3 <= n <= 70. - Georg Fischer, Nov 02 2018
According to the remarks in A109890, A094339 and A109890 are essentially the same, just swapping the first 2 terms, so this here is a(n)=A094341(n) for n>=3. - R. J. Mathar, Jul 02 2025
LINKS
Richard J. Mathar and Reinhard Zumkeller, Table of n, a(n) for n = 1..10000 (first 282 terms from Richard J. Mathar)
MATHEMATICA
a[1] = 1; a[2] = 2; a[n_] := a[n] = Block[{t = Table[a[i], {i, n - 1}]}, s = Plus @@ t; d = Divisors[s]; l = Complement[d, t]; If[l != {}, k = First[l], k = s; While[Position[t, k] == {}, k += s]; k]]; t = Table[a[n], {n, 250}]; Table[k = 1; While[ t[[k]] != n, k++ ]; k, {n, 70}] (* Robert G. Wilson v, Aug 12 2005 *)
PROG
(Haskell)
import Data.List (elemIndex); import Data.Maybe (fromJust)
a109736 = (+ 1) . fromJust . (`elemIndex` a109890_list)
-- Reinhard Zumkeller, Jan 01 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane and Nadia Heninger, Aug 11 2005
EXTENSIONS
More terms from Robert G. Wilson v, Aug 12 2005
STATUS
approved
