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

A000607 Number of partitions of n into prime parts.

Original entry on oeis.org

1, 0, 1, 1, 1, 2, 2, 3, 3, 4, 5, 6, 7, 9, 10, 12, 14, 17, 19, 23, 26, 30, 35, 40, 46, 52, 60, 67, 77, 87, 98, 111, 124, 140, 157, 175, 197, 219, 244, 272, 302, 336, 372, 413, 456, 504, 557, 614, 677, 744, 819, 899, 987, 1083, 1186, 1298, 1420, 1552, 1695, 1850, 2018, 2198, 2394, 2605, 2833, 3079, 3344
Offset: 0

Views

Author

N. J. A. Sloane

Keywords

Comments

a(n) gives the number of values of k such that A001414(k) = n. - Howard A. Landman, Sep 25 2001
Let W(n) = {prime p: There is at least one number m whose spf is p, and sopfr(m) = n}. Let V(n,p) = {m: sopfr(m) = n, p belongs to W(n)}. Then a(n) = sigma(|V(n,p)|). E.g.: W(10) = {2,3,5}, V(10,2) = {30,32,36}, V(10,3) = {21}, V(10,5) = {25}, so a(10) = 3+1+1 = 5. - David James Sycamore, Apr 14 2018
From Gus Wiseman, Jan 18 2020: (Start)
Also the number of integer partitions such that the sum of primes indexed by the parts is n. For example, the sum of primes indexed by the parts of the partition (3,2,1,1) is prime(3)+prime(2)+prime(1)+prime(1) = 12, so (3,2,1,1) is counted under a(12). The a(2) = 1 through a(14) = 10 partitions are:
1 2 11 3 22 4 32 41 33 5 43 6 44
21 111 31 221 222 42 322 331 51 52
211 1111 311 321 411 421 332 431
2111 2211 2221 2222 422 3222
11111 3111 3211 3221 3311
21111 22111 4111 4211
111111 22211 22221
31111 32111
211111 221111
1111111
(End)

Examples

			n = 10 has a(10) = 5 partitions into prime parts: 10 = 2 + 2 + 2 + 2 + 2 = 2 + 2 + 3 + 3 = 2 + 3 + 5 = 3 + 7 = 5 + 5.
n = 15 has a(15) = 12 partitions into prime parts: 15 = 2 + 2 + 2 + 2 + 2 + 2 + 3 = 2 + 2 + 2 + 3 + 3 + 3 = 2 + 2 + 2 + 2 + 2 + 5 = 2 + 2 + 2 + 2 + 7 = 2 + 2 + 3 + 3 + 5 = 2 + 3 + 5 + 5 = 2 + 3 + 3 + 7 = 2 + 2 + 11 = 2 + 13 = 3 + 3 + 3 + 3 + 3 = 3 + 5 + 7 = 5 + 5 + 5.

References

  • R. Ayoub, An Introduction to the Analytic Theory of Numbers, Amer. Math. Soc., 1963; see p. 203.
  • Mohammad K. Azarian, A Generalization of the Climbing Stairs Problem, Mathematics and Computer Education, Vol. 31, No. 1, pp. 24-28, Winter 1997. MathEduc Database (Zentralblatt MATH, 1997c.01891).
  • B. C. Berndt and B. M. Wilson, Chapter 5 of Ramanujan's second notebook, pp. 49-78 of Analytic Number Theory (Philadelphia, 1980), Lect. Notes Math. 899, 1981, see Entry 29.
  • D. M. Burton, Elementary Number Theory, 5th ed., McGraw-Hill, 2002.
  • L. M. Chawla and S. A. Shad, On a trio-set of partition functions and their tables, J. Natural Sciences and Mathematics, 9 (1969), 87-96.
  • N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Links

Crossrefs

G.f. = 1 / g.f. for A046675. See A046113 for the ordered (compositions) version.
Cf. A046676, A048165, A004526, A051034, A000040, A001414, A000586 (distinct parts), A000041, A070214, A192541, A112021, A056768, A128515, A319265, A319266.
Row sums of array A116865 and of triangle A261013.
Column sums of A331416.
Partitions whose Heinz number is divisible by their sum of primes are A330953.
Partitions of whose sum of primes is divisible by their sum are A331379.
Cf. A000720, A014689, A331385, A331387, A331415, A331417.

Programs

  • Haskell
    a000607 = p a000040_list where
   p _      0 = 1
   p ks'@(k:ks) m = if m < k then 0 else p ks' (m - k) + p ks m
-- Reinhard Zumkeller, Aug 05 2012
  • Magma
    [1] cat [#RestrictedPartitions(n,{p:p in PrimesUpTo(n)}): n in [1..100]]; // Marius A. Burtea, Jan 02 2019
  • Maple
    with(gfun):
t1:=mul(1/(1-q^ithprime(n)),n=1..51):
t2:=series(t1,q,50):
t3:=seriestolist(t2); # fixed by Vaclav Kotesovec, Sep 14 2014
  • Mathematica
    CoefficientList[ Series[1/Product[1 - x^Prime[i], {i, 1, 50}], {x, 0, 50}], x]
f[n_] := Length@ IntegerPartitions[n, All, Prime@ Range@ PrimePi@ n]; Array[f, 57] (* Robert G. Wilson v, Jul 23 2010 *)
Table[Length[Select[IntegerPartitions[n],And@@PrimeQ/@#&]],{n,0,60}] (* Harvey P. Dale, Apr 22 2012 *)
a[n_] := a[n] = If[PrimeQ[n], 1, 0]; c[n_] := c[n] = Plus @@ Map[# a[#] &, Divisors[n]]; b[n_] := b[n] = (c[n] + Sum[c[k] b[n - k], {k, 1, n - 1}])/n; Table[b[n], {n, 1, 20}] (* Thomas Vogler, Dec 10 2015: Uses Euler transform, caches computed values, faster than IntegerPartitions[] function. *)
nmax = 100; pmax = PrimePi[nmax]; poly = ConstantArray[0, nmax + 1]; poly[[1]] = 1; poly[[2]] = 0; poly[[3]] = -1; Do[p = Prime[k]; Do[poly[[j + 1]] -= poly[[j + 1 - p]], {j, nmax, p, -1}];, {k, 2, pmax}]; s = Sum[poly[[k + 1]]*x^k, {k, 0, Length[poly] - 1}]; CoefficientList[Series[1/s, {x, 0, nmax}], x] (* Vaclav Kotesovec, Jan 11 2021 *)
  • PARI
    N=66;x='x+O('x^N); Vec(1/prod(k=1,N,1-x^prime(k))) \\ Joerg Arndt, Sep 04 2014
  • Python
    from sympy import primefactors
l = [1, 0]
for n in range(2, 101):
    l.append(sum(sum(primefactors(k)) * l[n - k] for k in range(1, n + 1)) // n)
l  # Indranil Ghosh, Jul 13 2017
  • Sage
    [Partitions(n, parts_in=prime_range(n + 1)).cardinality() for n in range(100)]  # Giuseppe Coppoletta, Jul 11 2016

Formula

Asymptotically a(n) ~ exp(2 Pi sqrt(n/log n) / sqrt(3)) (Ayoub).
a(n) = (1/n)*Sum_{k=1..n} A008472(k)*a(n-k). - Vladeta Jovovic, Aug 27 2002
G.f.: 1/Product_{k>=1} (1-x^prime(k)).
See the partition arrays A116864 and A116865.
From Vaclav Kotesovec, Sep 15 2014 [Corrected by Andrey Zabolotskiy, May 26 2017]: (Start)
It is surprising that the ratio of the formula for log(a(n)) to the approximation 2 * Pi * sqrt(n/(3*log(n))) exceeds 1. For n=20000 the ratio is 1.00953, and for n=50000 (using the value from Havermann's tables) the ratio is 1.02458, so the ratio is increasing. See graph above.
A more refined asymptotic formula is found by Vaughan in Ramanujan J. 15 (2008), pp. 109-121, and corrected by Bartel et al. (2017): log(a(n)) = 2*Pi*sqrt(n/(3*log(n))) * (1 - log(log(n))/(2*log(n)) + O(1/log(n))).
See Bartel, Bhaduri, Brack, Murthy (2017) for a more complete asymptotic expansion. (End)
G.f.: 1 + Sum_{i>=1} x^prime(i) / Product_{j=1..i} (1 - x^prime(j)). - Ilya Gutkovskiy, May 07 2017
a(n) = A184198(n) + A184199(n). - Vaclav Kotesovec, Jan 11 2021

A002098 G.f.: 1/Product_{k>=1} (1-prime(k)*x^prime(k)).

Original entry on oeis.org

1, 0, 2, 3, 4, 11, 17, 29, 49, 85, 144, 226, 404, 603, 1025, 1679, 2558, 4201, 6677, 10190, 16599, 25681, 39643, 61830, 96771, 147114, 228338, 352725, 533291, 818624, 1263259, 1885918, 2900270, 4396577, 6595481, 10040029, 15166064, 22642064
Offset: 0

Views

Author

N. J. A. Sloane

Keywords

Comments

a(n) is sum of all numbers k for which A001414(k), the sum of prime factors with repetition, equals n. See Havermann's link. - J. M. Bergot, Jun 14 2013

References

  • S.M. Kerawala, On a Pair of Arithmetic Functions Analogous to Chawla's Pair, J. Natural Sciences and Mathematics, 9 (1969), circa p. 103.
  • N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Links

Crossrefs

Cf. A002099, A006906.
Row sums of A064364, A116864.

Programs

  • Maple
    b:= proc(n,i) option remember;
      if n<0 then 0
    elif n=0 then 1
    elif i=0 then 0
    else b(n, i-1) +b(n-ithprime(i), i) *ithprime(i)
      fi
    end:
a:= n-> b(n, numtheory[pi](n)):
seq(a(n), n=0..40);  # Alois P. Heinz, Nov 20 2010
  • Mathematica
    b[n_, i_] := b[n, i] = Which[n<0, 0, n==0, 1, i==0, 0, True, b[n, i-1] + b[n - Prime[i], i]*Prime[i]]; a[n_] := b[n, PrimePi[n]]; Table[a[n], {n, 0, 40}] (* Jean-François Alcover, Feb 19 2016, after Alois P. Heinz *)
With[{nn=40},CoefficientList[Series[1/Product[1-Prime[k]x^Prime[k],{k,nn}],{x,0,nn}],x]] (* Harvey P. Dale, Jun 20 2021 *)
  • PARI
    my(N=40, x='x+O('x^N)); Vec(1/prod(k=1, N, 1-isprime(k)*k*x^k)) \\ Seiichi Manyama, Feb 27 2022

Extensions

Better description and more terms from Vladeta Jovovic, May 09 2003

A116865 Characteristic array for partitions with only prime parts.

Original entry on oeis.org

0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0
Offset: 1

Views

Author

Wolfdieter Lang, Mar 24 2006

Keywords

Comments

The row length sequence of this array is p(n)=A000041(n) (number of partitions).
The partitions of n are ordered according to Abramowitz-Stegun (A-St), pp. 831-2.

Examples

			[0];[1, 0]; [1, 0, 0]; [0, 0, 1, 0, 0]; [1, 0, 1, 0, 0, 0, 0]; ...
a(4,3)=1 because the third partition of 4 is, in A-St order, (2,2)
which has only prime numbers as parts. Each of the other four partitions of 4
has at least one part which is not a prime number.

Links

Crossrefs

See also array A116864.
Row sums give A000607(n), n>=1.

Formula

a(n,k)= 1 if the k-th partition of n, in the Abramowitz-Stegun order, has only prime parts, else 0. See A000040 for the prime numbers.
Showing 1-3 of 3 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.