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-10 of 10 results.

A341451 Number of partitions of n into 4 nonprime parts.

Original entry on oeis.org

1, 0, 0, 1, 0, 1, 1, 1, 2, 2, 2, 3, 3, 4, 6, 5, 7, 8, 9, 10, 13, 13, 17, 17, 22, 21, 27, 27, 34, 34, 41, 40, 51, 49, 62, 59, 71, 70, 86, 82, 101, 97, 117, 112, 135, 131, 155, 150, 180, 170, 202, 196, 228, 222, 259, 248, 291, 281, 324, 314, 361, 348, 404, 388, 445, 431
Offset: 4

Views

Author

Ilya Gutkovskiy, Feb 12 2021

Keywords

Crossrefs

Cf. A002095, A005171, A018252, A062610, A259194, A341408, A341452, A341453, A341454, A341455, A341457.

Programs

  • Maple
    b:= proc(n, i, t) option remember; `if`(n=0,
      `if`(t=0, 1, 0), `if`(i<1 or t<1, 0, b(n, i-1, t)+
      `if`(isprime(i), 0, b(n-i, min(n-i, i), t-1))))
    end:
a:= n-> b(n$2, 4):
seq(a(n), n=4..69);  # Alois P. Heinz, Feb 12 2021
  • Mathematica
    b[n_, i_, t_] := b[n, i, t] = If[n == 0,
     If[t == 0, 1, 0], If[i < 1 || t < 1, 0, b[n, i - 1, t] +
     If[PrimeQ[i], 0, b[n - i, Min[n - i, i], t - 1]]]];
a[n_] := b[n, n, 4];
Table[a[n], {n, 4, 69}] (* Jean-François Alcover, Aug 19 2021, after Alois P. Heinz *)

A341453 Number of partitions of n into 6 nonprime parts.

Original entry on oeis.org

1, 0, 0, 1, 0, 1, 1, 1, 2, 2, 2, 3, 3, 4, 6, 6, 7, 9, 10, 12, 15, 16, 20, 23, 27, 30, 36, 40, 48, 53, 62, 68, 81, 87, 105, 112, 130, 141, 166, 176, 208, 219, 256, 271, 314, 331, 385, 403, 468, 488, 561, 588, 674, 702, 804, 837, 952, 991, 1126, 1168, 1321, 1372
Offset: 6

Views

Author

Ilya Gutkovskiy, Feb 12 2021

Keywords

Crossrefs

Cf. A002095, A005171, A018252, A062610, A259196, A341408, A341451, A341452, A341454, A341455, A341457.

Programs

  • Maple
    b:= proc(n, i, t) option remember; `if`(n=0,
      `if`(t=0, 1, 0), `if`(i<1 or t<1, 0, b(n, i-1, t)+
      `if`(isprime(i), 0, b(n-i, min(n-i, i), t-1))))
    end:
a:= n-> b(n$2, 6):
seq(a(n), n=6..67);  # Alois P. Heinz, Feb 12 2021
  • Mathematica
    b[n_, i_, t_] := b[n, i, t] = If[n == 0,
     If[t == 0, 1, 0], If[i < 1 || t < 1, 0, b[n, i - 1, t] +
     If[PrimeQ[i], 0, b[n - i, Min[n - i, i], t - 1], 0]]];
a[n_] := b[n, n, 6];
Table[a[n], {n, 6, 67}] (* Jean-François Alcover, Feb 23 2022, after Alois P. Heinz *)
Table[Count[IntegerPartitions[n,{6}],?(NoneTrue[#,PrimeQ]&)],{n,6,70}] (* _Harvey P. Dale, Feb 21 2023 *)

A341457 Number of partitions of n into 9 nonprime parts.

Original entry on oeis.org

1, 0, 0, 1, 0, 1, 1, 1, 2, 2, 2, 3, 3, 4, 6, 6, 7, 9, 10, 12, 15, 17, 20, 24, 28, 32, 38, 44, 51, 60, 67, 79, 91, 104, 120, 138, 154, 180, 203, 232, 262, 300, 335, 385, 428, 489, 543, 620, 688, 782, 861, 979, 1078, 1222, 1341, 1518, 1661, 1875, 2048, 2308
Offset: 9

Views

Author

Ilya Gutkovskiy, Feb 12 2021

Keywords

Links

Crossrefs

Cf. A002095, A005171, A018252, A062610, A259200, A341408, A341451, A341452, A341453, A341454, A341455.

Programs

  • Maple
    b:= proc(n, i, t) option remember; `if`(n=0,
      `if`(t=0, 1, 0), `if`(i<1 or t<1, 0, b(n, i-1, t)+
      `if`(isprime(i), 0, b(n-i, min(n-i, i), t-1))))
    end:
a:= n-> b(n$2, 9):
seq(a(n), n=9..68);  # Alois P. Heinz, Feb 12 2021
  • Mathematica
    b[n_, i_, t_] := b[n, i, t] = If[n == 0,
     If[t == 0, 1, 0], If[i < 1 || t < 1, 0, b[n, i - 1, t] +
     If[PrimeQ[i], 0, b[n - i, Min[n - i, i], t - 1], 0]]];
a[n_] := b[n, n, 9];
Table[a[n], {n, 9, 68}] (* Jean-François Alcover, Feb 23 2022, after Alois P. Heinz *)

A341408 Number of partitions of n into 3 nonprime parts.

Original entry on oeis.org

1, 0, 0, 1, 0, 1, 1, 1, 2, 2, 2, 3, 2, 4, 5, 5, 5, 7, 6, 9, 8, 11, 10, 13, 12, 16, 14, 19, 16, 22, 19, 26, 22, 29, 27, 33, 28, 39, 33, 42, 38, 47, 43, 53, 45, 58, 52, 63, 59, 70, 61, 77, 68, 83, 76, 91, 79, 98, 88, 105, 95, 115, 102, 121, 111, 130, 119, 141, 124, 148
Offset: 3

Views

Author

Ilya Gutkovskiy, Feb 12 2021

Keywords

Crossrefs

Cf. A002095, A005171, A018252, A062610, A068307, A341451, A341452, A341453, A341454, A341455, A341457.

Programs

  • Maple
    b:= proc(n, i, t) option remember; `if`(n=0,
      `if`(t=0, 1, 0), `if`(i<1 or t<1, 0, b(n, i-1, t)+
      `if`(isprime(i), 0, b(n-i, min(n-i, i), t-1))))
    end:
a:= n-> b(n$2, 3):
seq(a(n), n=3..72);  # Alois P. Heinz, Feb 12 2021
  • Mathematica
    b[n_, i_, t_] := b[n, i, t] = If[n == 0,
     If[t == 0, 1, 0], If[i < 1 || t < 1, 0, b[n, i - 1, t] +
     If[PrimeQ[i], 0, b[n - i, Min[n - i, i], t - 1]]]];
a[n_] := b[n, n, 3];
a /@ Range[3, 72] (* Jean-François Alcover, Mar 28 2021, after Alois P. Heinz *)

A341454 Number of partitions of n into 7 nonprime parts.

Original entry on oeis.org

1, 0, 0, 1, 0, 1, 1, 1, 2, 2, 2, 3, 3, 4, 6, 6, 7, 9, 10, 12, 15, 17, 20, 24, 27, 32, 37, 43, 49, 58, 64, 76, 85, 99, 111, 129, 140, 166, 182, 210, 230, 267, 290, 336, 362, 418, 451, 519, 559, 640, 685, 784, 837, 956, 1020, 1158, 1232, 1397, 1483, 1677, 1776
Offset: 7

Views

Author

Ilya Gutkovskiy, Feb 12 2021

Keywords

Crossrefs

Cf. A002095, A005171, A018252, A062610, A259197, A341408, A341451, A341452, A341453, A341455, A341457.

Programs

  • Maple
    b:= proc(n, i, t) option remember; `if`(n=0,
      `if`(t=0, 1, 0), `if`(i<1 or t<1, 0, b(n, i-1, t)+
      `if`(isprime(i), 0, b(n-i, min(n-i, i), t-1))))
    end:
a:= n-> b(n$2, 7):
seq(a(n), n=7..67);  # Alois P. Heinz, Feb 12 2021
  • Mathematica
    b[n_, i_, t_] := b[n, i, t] = If[n == 0,
     If[t == 0, 1, 0], If[i < 1 || t < 1, 0, b[n, i - 1, t] +
     If[PrimeQ[i], 0, b[n - i, Min[n - i, i], t - 1], 0]]];
a[n_] := b[n, n, 7];
Table[a[n], {n, 7, 67}] (* Jean-François Alcover, Feb 23 2022, after Alois P. Heinz *)

A341455 Number of partitions of n into 8 nonprime parts.

Original entry on oeis.org

1, 0, 0, 1, 0, 1, 1, 1, 2, 2, 2, 3, 3, 4, 6, 6, 7, 9, 10, 12, 15, 17, 20, 24, 28, 32, 38, 43, 51, 59, 67, 77, 90, 101, 119, 133, 152, 172, 199, 220, 256, 283, 325, 359, 412, 453, 520, 569, 652, 711, 810, 882, 1005, 1091, 1238, 1341, 1519, 1641, 1854, 1999
Offset: 8

Views

Author

Ilya Gutkovskiy, Feb 12 2021

Keywords

Crossrefs

Cf. A002095, A005171, A018252, A062610, A259198, A341408, A341451, A341452, A341453, A341454, A341457.

Programs

  • Maple
    b:= proc(n, i, t) option remember; `if`(n=0,
      `if`(t=0, 1, 0), `if`(i<1 or t<1, 0, b(n, i-1, t)+
      `if`(isprime(i), 0, b(n-i, min(n-i, i), t-1))))
    end:
a:= n-> b(n$2, 8):
seq(a(n), n=8..67);  # Alois P. Heinz, Feb 12 2021
  • Mathematica
    b[n_, i_, t_] := b[n, i, t] = If[n == 0,
     If[t == 0, 1, 0], If[i < 1 || t < 1, 0, b[n, i - 1, t] +
     If[PrimeQ[i], 0, b[n - i, Min[n - i, i], t - 1], 0]]];
a[n_] := b[n, n, 8];
Table[a[n], {n, 8, 67}] (* Jean-François Alcover, Feb 23 2022, after Alois P. Heinz *)

A341464 Number of partitions of n into 5 distinct nonprime parts.

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 4, 4, 5, 7, 7, 9, 12, 14, 15, 19, 21, 27, 29, 35, 38, 47, 49, 59, 65, 77, 82, 96, 102, 119, 128, 147, 157, 181, 189, 216, 231, 260, 276, 309, 327, 366, 387, 431, 454, 505, 529, 584, 617, 678, 713, 780, 818, 892, 938, 1020, 1071, 1164, 1213, 1311, 1378
Offset: 28

Views

Author

Ilya Gutkovskiy, Feb 12 2021

Keywords

Crossrefs

Cf. A005171, A018252, A096258, A219199, A302479, A341452, A341461, A341462, A341465, A341466, A341467.

Programs

  • Maple
    b:= proc(n, i, t) option remember; `if`(n=0,
      `if`(t=0, 1, 0), `if`(i<1 or t<1, 0, b(n, i-1, t)+
      `if`(isprime(i), 0, b(n-i, min(n-i, i-1), t-1))))
    end:
a:= n-> b(n$2, 5):
seq(a(n), n=28..88);  # Alois P. Heinz, Feb 12 2021
  • Mathematica
    b[n_, i_, t_] := b[n, i, t] = If[n == 0,
     If[t == 0, 1, 0], If[i < 1 || t < 1, 0, b[n, i - 1, t] +
     If[PrimeQ[i], 0, b[n - i, Min[n - i, i - 1], t - 1]]]];
a[n_] := b[n, n, 5];
Table[a[n], {n, 28, 88}] (* Jean-François Alcover, Jul 13 2021, after Alois P. Heinz *)

A341482 Number of ways to write n as an ordered sum of 5 nonprime numbers.

Original entry on oeis.org

1, 0, 0, 5, 0, 5, 10, 5, 25, 15, 30, 55, 45, 85, 105, 126, 180, 220, 260, 360, 415, 510, 650, 745, 915, 1101, 1270, 1525, 1800, 2045, 2440, 2780, 3225, 3660, 4250, 4771, 5465, 6185, 6930, 7840, 8816, 9790, 11015, 12240, 13505, 15146, 16595, 18385, 20240, 22325, 24255
Offset: 5

Views

Author

Ilya Gutkovskiy, Feb 13 2021

Keywords

Crossrefs

Cf. A005171, A018252, A052284, A076608, A340961, A341452, A341464, A341480, A341481, A341483, A341484, A341485, A341486.

Programs

  • Maple
    b:= proc(n, t) option remember;
      `if`(n=0, `if`(t=0, 1, 0), `if`(t<1, 0, add(
      `if`(isprime(j), 0, b(n-j, t-1)), j=1..n)))
    end:
a:= n-> b(n, 5):
seq(a(n), n=5..55);  # Alois P. Heinz, Feb 13 2021
  • Mathematica
    nmax = 55; CoefficientList[Series[Sum[Boole[!PrimeQ[k]] x^k, {k, 1, nmax}]^5, {x, 0, nmax}], x] // Drop[#, 5] &

A341460 Number of partitions of n into 10 nonprime parts.

Original entry on oeis.org

1, 0, 0, 1, 0, 1, 1, 1, 2, 2, 2, 3, 3, 4, 6, 6, 7, 9, 10, 12, 15, 17, 20, 24, 28, 32, 38, 44, 51, 60, 68, 79, 92, 104, 122, 139, 157, 181, 208, 234, 270, 304, 347, 391, 445, 499, 569, 636, 724, 805, 913, 1015, 1150, 1274, 1440, 1592, 1796, 1980, 2231, 2455
Offset: 10

Views

Author

Ilya Gutkovskiy, Feb 12 2021

Keywords

Crossrefs

Cf. A002095, A005171, A018252, A062610, A259201, A341408, A341451, A341452, A341453, A341454, A341455, A341457.

Programs

  • Maple
    b:= proc(n, i, t) option remember; `if`(n=0,
      `if`(t=0, 1, 0), `if`(i<1 or t<1, 0, b(n, i-1, t)+
      `if`(isprime(i), 0, b(n-i, min(n-i, i), t-1))))
    end:
a:= n-> b(n$2, 10):
seq(a(n), n=10..69);  # Alois P. Heinz, Feb 12 2021
  • Mathematica
    b[n_, i_, t_] := b[n, i, t] = If[n == 0,
     If[t == 0, 1, 0], If[i < 1 || t < 1, 0, b[n, i - 1, t] +
     If[PrimeQ[i], 0, b[n - i, Min[n - i, i], t - 1], 0]]];
a[n_] := b[n, n, 10];
Table[a[n], {n, 10, 69}] (* Jean-François Alcover, Feb 28 2022, after Alois P. Heinz *)
Table[Count[IntegerPartitions[n,{10}],?(NoneTrue[#,PrimeQ]&)],{n,10,70}] (* _Harvey P. Dale, Sep 01 2024 *)

A347663 Number of partitions of n into at most 5 nonprime parts.

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 2, 2, 4, 4, 6, 5, 8, 8, 10, 10, 15, 14, 20, 19, 25, 25, 33, 30, 43, 42, 53, 52, 68, 64, 84, 80, 102, 100, 126, 119, 154, 148, 181, 177, 219, 209, 261, 251, 304, 299, 359, 344, 420, 408, 484, 475, 564, 546, 648, 632, 739, 728, 849, 825, 968
Offset: 0

Views

Author

Ilya Gutkovskiy, Sep 10 2021

Keywords

Crossrefs

Cf. A002095, A018252, A307857, A341452, A347662, A347664.
Showing 1-10 of 10 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.