This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A203076 Convert A203075(n) to base 10. 2
 0, 1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 17, 18, 19, 21, 22, 23, 26, 27, 29, 30, 31, 39, 42, 43, 45, 46, 47, 49, 50, 51, 53, 54, 55, 58, 59, 61, 62, 63, 67, 69, 70, 71, 74, 75, 77, 78, 79, 81, 82, 83, 85, 86, 87, 90, 91, 93, 94, 95 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,3 COMMENTS Any nonnegative number can be written as a sum of distinct members of the complete sequence, A203074. Terms a(n) are decimal representations of binary vectors (in ascending powers of 2) used to select members of A203074 that when summed give n. LINKS Wikipedia, Complete sequence. FORMULA Binary(a(n)) x A203074 = n, where x is the inner product and the binary vector is in ascending powers of 2 with infinite trailing zeros. MATHEMATICA nextprime[n_Integer] := (k=n+1; While[!PrimeQ[k], k++]; k); aprime[m_Integer] := (If[m==0, 1, nextprime[2^(m-1)]]); seqtable[l_] := (stable=Table[aprime[j], {j, 0, l}]; stable); inttable[p_] := (itable=Reverse[IntegerDigits[p, 2]]; itable); h=1; otable={0}; ttable={}; While[h<100, (inttable[h]; seqtable[Length[itable]-1]; test=itable.stable; If[!MemberQ[ttable, test], AppendTo[otable, h], Null]; AppendTo[ttable, test]; h++)]; otable CROSSREFS Cf. A203074, A203075. Sequence in context: A197680 A119024 A321453 * A247180 A317091 A048839 Adjacent sequences:  A203073 A203074 A203075 * A203077 A203078 A203079 KEYWORD nonn AUTHOR Frank M. Jackson and N. J. A. Sloane, Dec 28 2011. STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified May 24 17:16 EDT 2019. Contains 323533 sequences. (Running on oeis4.)