OFFSET
1,1
COMMENTS
REFERENCES
Steven R. Finch, Mathematical Constants, Cambridge, 2003, pp. 145-151.
R. K. Guy, "s-Additive sequences", preprint, 1994.
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
Steven R. Finch, Stolarsky-Harborth Constant [Broken link]
Steven R. Finch, Stolarsky-Harborth Constant [From the Wayback machine]
Steven R. Finch, Patterns in 1-additive sequences, Experimental Mathematics 1 (1992), 57-63.
R. K. Guy, s-Additive sequences, Preprint, 1994. (Annotated scanned copy)
Eric Weisstein's World of Mathematics, Ulam Sequence
Wikipedia, Ulam number
MATHEMATICA
Nest[Append[#, SelectFirst[Union@ Select[Tally@ Map[Total, Select[Permutations[#, {2}], #1 < #2 & @@ # &]], Last@ # == 1 &][[All, 1]], Function[k, FreeQ[#, k]]]] &, {4, 7}, 56] (* Michael De Vlieger, Nov 16 2017 *)
PROG
(Haskell)
a003670 n = a003670_list !! (n-1)
a003670_list = 4 : 7 : ulam 2 7 a003670_list
-- Function ulam as defined in A002858.
-- Reinhard Zumkeller, Nov 03 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved