cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-4 of 4 results.

A323049 Numbers that are neither 5-smooth nor a sum of two 5-smooth numbers.

Original entry on oeis.org

71, 119, 142, 191, 211, 213, 223, 238, 239, 284, 299, 311, 319, 355, 357, 359, 367, 373, 382, 397, 419, 422, 426, 431, 446, 461, 463, 467, 473, 476, 478, 479, 497, 523, 529, 547, 551, 553, 559, 568, 569, 571, 573, 583, 589, 595, 598, 599, 607, 613, 617, 619, 622, 623, 638, 639, 659, 669, 671, 703, 709, 710, 713, 714
Offset: 1

Views

Author

Carlos Alves, Jan 03 2019

Keywords

Comments

Complementary set of (A323048).
Also numbers k such that at least three five-smooth numbers are needed to sum to k. - David A. Corneth, Jan 04 2019
Contains all k == 71 or 119 (mod 120). - Robert Israel, Apr 02 2019

Links

Crossrefs

Cf. A003586, A051037, A323048.
Similar to A323046 (for 3-smooth numbers).

Programs

  • Maple
    N:= 1000: # to get all terms <= N
V:= {seq(seq(seq(2^a*3^b*5^c, a = 0 .. floor(log[2](N/3^b/5^c))),b = 0 .. floor(log[3](N/5^c))),c=0..floor(log[5](N)))}:
S:= {$1..N} minus V minus {seq(seq(V[i]+V[j],i=1..j),j=1..nops(V))}:
A:= sort(convert(S,list)): # Robert Israel, Apr 02 2019
  • Mathematica
    f[n_] := Union@Flatten@Table[2^a*3^b*5^c, {a, 0, Log2[n]}, {b, 0, Log[3, n/2^a]}, {c, 0, Log[5, n/(2^a*3^b)]}]; b = Block[{nn = 800, s}, s = f[nn]; {0, 1}~Join~
   Select[Union@Flatten@Outer[Plus, s, s], # <= nn &]];
Complement[Range[800], b]

A323050 Numbers that cannot be written as a sum of two or fewer 7-smooth numbers (A002473).

Original entry on oeis.org

311, 479, 551, 619, 622, 671, 719, 839, 851, 933, 937, 958, 1102, 1103, 1117, 1151, 1193, 1238, 1244, 1291, 1319, 1342, 1391, 1433, 1437, 1438, 1487, 1499, 1511, 1531, 1553, 1555, 1559, 1619, 1651, 1653, 1667, 1678, 1679, 1697, 1857, 1866, 1871, 1874, 1913, 1916, 1919, 1933, 1937, 1991, 2011, 2013, 2077, 2113, 2117, 2157
Offset: 1

Views

Author

Carlos Alves, Jan 03 2019

Keywords

Comments

Numbers that are not of the form (2^i * 3^j * 5^k * 7^l)*a + (2^m * 3^n * 5^p * 7^q)*b, with i,j,k,m,n,p >= 0, and a,b = 0 or 1. The first number excluded is 311.
These numbers are also included in A323046 and A323049.

Crossrefs

Similar to A323046 (for 3-smooth) and A323049 (for 5-smooth). Cf. A002473.

Programs

  • Mathematica
    f[n_] := Union@Flatten@Table[2^a*3^b*5^c*7^d, {a, 0, Log2[n]}, {b, 0, Log[3, n/2^a]}, {c, 0, Log[5, n/(2^a*3^b)]}, {d, 0, Log[7, n/(2^a*3^b*5^c)]}];
b = Block[{nn = 3000, s}, s = f[nn]; {0, 1}~Join~Select[Union@Flatten@Outer[Plus, s, s], # <= nn &]];
Complement[Range[3000], b]

A323047 Numbers that are not the sum of three (or fewer) 3-smooth numbers.

Original entry on oeis.org

431, 485, 509, 565, 637, 671, 719, 725, 727, 862, 887, 935, 941, 943, 959, 967, 970, 1130, 1151, 1175, 1199, 1205, 1274, 1293, 1319, 1342, 1367, 1373, 1391, 1415, 1421, 1423, 1438, 1439, 1445, 1447, 1450, 1453, 1454, 1455, 1481, 1527, 1535, 1559
Offset: 1

Views

Author

Carlos Alves, Jan 03 2019

Keywords

Comments

Numbers below 431 may be written as a sum of three (or fewer) elements in A003586. These are the first exceptions.
Below 18431 every number can be written as a sum of 4 or fewer 3-smooth numbers, and below 3448733 every number can be written as a sum of 5 or fewer 3-smooth numbers (cf. sequence A018899).

Links

Crossrefs

Cf. A003586, A018899, A237442, A323046, A323048, A323049, A323050.

Programs

  • Maple
    N:= 1000: # for all terms <= N
S:= {seq(seq(2^i*3^j,i=0..ilog2(N/3^j)),j=0..floor(log[3](N)))}:
S2:= select(`<=`,map(t -> op(map(`+`, S,t)), S),N):
S3:= select(`<=`,map(t -> op(map(`+`, S,t)), S2), N):
A:= {$1..N} minus S minus S2 minus S3:
sort(convert(A,list)); # Robert Israel, May 19 2019
  • Mathematica
    f[n_] := Union@ Flatten@ Table[2^a * 3^b, {a, 0, Log2[n]}, {b, 0, Log[3, n/2^a]}];
b=Block[{nn = 2000, s}, s = f[nn]; {0, 1, 2}~Join~Select[Union@ Flatten@ Outer[Plus, s, s, s], # <= nn &]]; Complement[Range[2000], b]

A323051 Numbers that cannot be written as a sum of two or fewer 11-smooth numbers (A051038).

Original entry on oeis.org

479, 958, 1151, 1319, 1437, 1559, 1679, 1916, 2302, 2351, 2395, 2638, 2874, 2999, 3013, 3071, 3118, 3353, 3358, 3453, 3671, 3737, 3769, 3832, 3911, 3957, 4199, 4309, 4311, 4604, 4677, 4702, 4703, 4751, 4790, 4919, 5037, 5057, 5269, 5276, 5389, 5443, 5519, 5597, 5683
Offset: 1

Views

Author

Carlos Alves, Jan 03 2019

Keywords

Comments

Similar to A323046 (3-smooth), A323049 (5-smooth) or A323050 (7-smooth).
This sequence is a subsequence of A323046, A323049, and A323050.
Notice that A045535(4) = a(1) = 479.

Crossrefs

See A323046 (3-smooth), A323049 (5-smooth) or A323050 (7-smooth). Cf. A051038, A045535 (or A062241).

Programs

  • Mathematica
    f[n_] := Union@Flatten@Table[2^a*3^b*5^c*7^d, {a, 0, Log2[n]}, {b, 0, Log[3, n/2^a]}, {c, 0, Log[5, n/(2^a*3^b)]}, {d, 0, Log[7, n/(2^a*3^b*5^c)]}];
b = Block[{nn = 3000, s}, s = f[nn]; {0, 1}~Join~
    Select[Union@Flatten@Outer[Plus, s, s], # <= nn &]];
Complement[Range[3000], b]
Showing 1-4 of 4 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.