A331380 -id:A331380 - cp's OEIS frontend

A014689 a(n) = prime(n)-n, the number of nonprimes less than prime(n).

1, 1, 2, 3, 6, 7, 10, 11, 14, 19, 20, 25, 28, 29, 32, 37, 42, 43, 48, 51, 52, 57, 60, 65, 72, 75, 76, 79, 80, 83, 96, 99, 104, 105, 114, 115, 120, 125, 128, 133, 138, 139, 148, 149, 152, 153, 164, 175, 178, 179, 182, 187, 188, 197, 202, 207, 212, 213, 218, 221, 222

Offset: 1

Mohammad K. Azarian

a(n) = A048864(A000040(n)) = number of nonprimes in RRS of n-th prime. - Labos Elemer, Oct 10 2002
A000040 - A014689 = A000027; in other words, the sequence of natural numbers subtracted from the prime sequence produces A014689. - Enoch Haga, May 25 2009
a(n) = A000040(n) - n. a(n) = inverse (frequency distribution) sequence of A073425(n), i.e., number of terms of sequence A073425(n) less than n. a(n) = A065890(n) + 1, for n >= 1. a(n) - 1 = A065890(n) = the number of composite numbers, i.e., (A002808) less than n-th primes, (i.e., < A000040(n)). - Jaroslav Krizek, Jun 27 2009
a(n) = A162177(n+1) + 1, for n >= 1. a(n) - 1 = A162177(n+1) = the number of composite numbers, i.e., (A002808) less than (n+1)-th number of set {1, primes}, (i.e., < A008578(n+1)). - Jaroslav Krizek, Jun 28 2009
Conjecture: Each residue class contains infinitely many terms of this sequence. Similarly, for any integers m > 0 and r, we have prime(n) + n == r (mod m) for infinitely many positive integers n. - Zhi-Wei Sun, Nov 25 2013
First differences are A046933 = differences minus one between successive primes. - Gus Wiseman, Jan 18 2020

T. D. Noe, Table of n, a(n) for n=1..1000

Equals A014692 - 1.
Cf. A000040, A033286, A158611, A002808, A065890.
Cf. A232463, A232443.
The sum of prime factors of n is A001414(n).
The sum of prime indices of n is A056239(n).
Their difference is A331415(n).
Cf. A000720, A046933, A056239, A318995, A325036, A331380, A331416, A331418.

a014689 n = a000040 n - fromIntegral n
-- Reinhard Zumkeller, Apr 09 2012

[NthPrime(n)-n: n in [1..70]]; // Vincenzo Librandi, Mar 20 2013

Table[Prime[n] - n, {n, 61}] (* Alonso del Arte *)

a(n) = prime(n)-n \\ Charles R Greathouse IV, Sep 05 2011

from sympy import prime
def A014689(n): return prime(n)-n # Chai Wah Wu, Oct 11 2024

G.f: b(x) - x/((1-x)^2), where b(x) is the g.f. of A000040. - Mario C. Enriquez, Dec 13 2016

More terms from Vasiliy Danilov (danilovv(AT)usa.net), Jul 1998

Correction for Aug 2009 change of offset in A158611 and A008578 by Jaroslav Krizek, Jan 27 2010

A036844 Numbers k such that k / sopfr(k) is an integer, where sopfr = sum-of-prime-factors, A001414.

Original entry on oeis.org

2, 3, 4, 5, 7, 11, 13, 16, 17, 19, 23, 27, 29, 30, 31, 37, 41, 43, 47, 53, 59, 60, 61, 67, 70, 71, 72, 73, 79, 83, 84, 89, 97, 101, 103, 105, 107, 109, 113, 127, 131, 137, 139, 149, 150, 151, 157, 163, 167, 173, 179, 180, 181, 191, 193, 197, 199, 211, 220, 223

Offset: 1

Robert A. Stump (bee_ess107(AT)yahoo.com), Jan 09 2002

nonn

Union of A046346 and the primes. - T. D. Noe, Feb 20 2007
These are the Heinz numbers of the partitions counted by A330953. - Gus Wiseman, Jan 17 2020
Alladi and Erdős (1977) noted that sopfr(k) = k if k is a prime or k = 4. They called the terms for which k/sopfr(k) > 1 "special numbers", and proved that there are infinitely many such terms that are squarefree. - Amiram Eldar, Nov 02 2020

			a(12) = 27 because sopfr(27) = 3 + 3 + 3 = 9 and 27 is divisible by 9.

Amarnath Murthy, Generalization of Partition function and introducing Smarandache Factor Partition, Smarandache Notions Journal, Vol. 11, 1-2-3, Spring-2000.
Joe Roberts, Lure of the Integers, Math. Assoc. America, 1992, p. 89.

Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from T. D. Noe)
Krishnaswami Alladi and Paul Erdős, On an additive arithmetic function, Pacific Journal of Mathematics, Vol. 71, No. 2 (1977), pp. 275-294, alternative link.
Mohan Lal, Iterates of a number-theoretic function, Math. Comp., Vol. 23, No. 105 (1969), pp. 181-183.

sopfr(n) is defined in A001414.
The version for prime indices instead of prime factors is A324851.
Partitions whose Heinz number is divisible by their sum: A330950.
Partitions whose Heinz number is divisible by their sum of primes: A330953.
Partitions whose product is divisible by their sum of primes: A330954.
Partitions whose product divides their sum of primes: A331381.
Product of prime indices is divisible by sum of prime factors: A331378.
Sum of prime factors is divisible by sum of prime indices: A331380.
Product of prime indices equals sum of prime factors: A331384.
Cf. A056239, A112798, A120383, A238525, A331379, A331382, A331383.

a036844 n = a036844_list !! (n-1)
a036844_list = filter ((== 0). a238525) [2..]
-- Reinhard Zumkeller, Jul 21 2014

Select[Range[2, 224], Divisible[#, Plus @@ Times @@@ FactorInteger[#]] &] (* Jayanta Basu, Aug 13 2013 *)

is_A036844(n)=n>1 && !(n%A001414(n)) \\ M. F. Hasler, Mar 01 2014

A238525(a(n)) = 0. - Reinhard Zumkeller, Jul 21 2014

A331383 Number of integer partitions of n whose sum of primes of parts is equal to their product of parts.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 1, 0, 2, 2, 1, 1, 1, 2, 2, 2, 1, 4, 2, 2, 2, 4, 2, 3, 4, 1, 3, 4, 5, 0, 3, 3, 1, 6, 2, 1, 5, 4, 2, 3, 4, 2, 2, 3, 1, 5, 2, 3, 4, 6, 5, 2, 7, 1, 3, 5, 3, 4, 2, 5, 5, 4, 7, 3, 6, 4, 4, 2, 4, 4, 3, 9, 4, 3, 5, 3, 5, 4, 4, 4, 3, 7, 4, 2, 8, 2, 3

Offset: 1

Gus Wiseman, Jan 16 2020

nonn

			The a(n) partitions for n = 7, 9, 18, 24:
  (4,3)  (6,3)    (12,4,1,1)                 (19,4,1)
         (4,4,1)  (11,4,1,1,1)               (18,4,1,1)
                  (8,5,1,1,1,1,1)            (9,6,1,1,1,1,1,1,1,1,1)
                  (4,2,2,2,1,1,1,1,1,1,1,1)
For example, (4,4,1) has sum of primes of parts 7+7+2 = 16 and product of parts 4*4*1 = 16, so is counted under a(9).

The Heinz numbers of these partitions are given by A331384.
Numbers divisible by the sum of their prime factors are A036844.
Partitions whose product is divisible by their sum are A057568.
Numbers divisible by the sum of their prime indices are A324851.
Product of prime indices is divisible by sum of prime indices: A326149.
Partitions whose Heinz number is divisible by their sum are A330950.
Partitions whose Heinz number is divisible by their sum of primes: A330953.
Sum of prime factors is divisible by sum of prime indices: A331380
Partitions whose product divides their sum of primes are A331381.
Cf. A000040, A001414, A324850, A330954, A331378, A331379, A331382, A331415, A331416.

Table[Length[Select[IntegerPartitions[n],Times@@#==Plus@@Prime/@#&]],{n,30}]

a(n) = my(c=0); forpart(v=n, if(vecprod(Vec(v))==sum(i=1, #v, prime(v[i])), c++)); c; \\ Jinyuan Wang, Feb 14 2025

a(71)-a(87) from Robert Price, Apr 10 2020

A331379 Number of integer partitions of n whose sum of primes of parts is divisible by n.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 2, 4, 6, 7, 7, 7, 9, 11, 18, 24, 33, 39, 44, 51, 55, 66, 83, 106, 121, 145, 167, 193, 232, 253, 300, 342, 427, 469, 557, 628, 729, 846, 936, 1088, 1195, 1450, 1601, 1895, 2097, 2482, 2782, 3220, 3592, 4073, 4641, 5202, 5911, 6494, 7443, 8294

Offset: 1

Gus Wiseman, Jan 17 2020

nonn

			The a(6) = 1 through a(11) = 7 partitions:
  111111  52       53        54         64          641
          1111111  62        63         541         5411
                   521       531        631         6311
                   11111111  621        5311        53111
                             5211       6211        62111
                             111111111  52111       521111
                                        1111111111  11111111111
For example, the partition (5,4,1,1) has sum of primes 11+7+2+2 = 22, which is divisible by 5+4+1+1 = 11, so (5,4,1,1) is counted under a(11).

The Heinz numbers of these partitions are given by A331380.
Numbers divisible by the sum of their prime factors are A036844.
Partitions whose product is divisible by their sum are A057568.
Numbers divisible by the sum of their prime indices are A324851.
Product of prime indices is divisible by sum of prime indices: A326149.
Partitions whose Heinz number is divisible by their sum are A330950.
Partitions whose Heinz number is divisible by their sum of primes: A330953.
Partitions whose product divides their sum of primes are A331381.
Partitions whose product is equal to their sum of primes are A331383.
Product of prime indices equals sum of prime factors: A331384.
Cf. A000040, A001414, A056239, A324850, A330954, A331378, A331382.

Table[Length[Select[IntegerPartitions[n],Divisible[Plus@@Prime/@#,n]&]],{n,30}]

A331381 Number of integer partitions of n whose sum of primes of parts is divisible by their product of parts.

Original entry on oeis.org

1, 1, 1, 1, 1, 3, 1, 5, 2, 6, 6, 5, 5, 7, 4, 7, 7, 7, 10, 8, 9, 6, 10, 9, 9, 15, 7, 12, 10, 14, 10, 10, 8, 8, 15, 10, 7, 16, 13, 9, 10, 14, 12, 10, 8, 14, 11, 13, 11, 16, 15, 14, 15, 15, 10, 14, 18, 11, 12, 13, 13, 18, 21, 15, 16, 19, 16, 15, 8, 17, 17

Offset: 0

Gus Wiseman, Jan 16 2020

nonn

			The a(n) partitions for n = 1, 5, 7, 8, 9, 13, 14:
  1  221    43       311111    63         7411           65111
     311    511      11111111  441        721111         322211111
     11111  3211               711        43111111       311111111111
            22111              42111      421111111      11111111111111
            1111111            2211111    3211111111
                               111111111  22111111111
                                          1111111111111

The Heinz numbers of these partitions are given by A331382.
Numbers divisible by the sum of their prime factors are A036844.
Partitions whose product is divisible by their sum are A057568.
Numbers divisible by the sum of their prime indices are A324851.
Product of prime indices is divisible by sum of prime indices: A326149.
Partitions whose Heinz number is divisible by their sum are A330950.
Sum of prime factors is divisible by sum of prime indices: A331380
Partitions whose product is equal to their sum of primes are A331383.
Product of prime indices equals sum of prime factors: A331384.
Cf. A000040, A001414, A324850, A330953, A330954, A331378, A331379, A331415, A331416.

Table[Length[Select[IntegerPartitions[n],Divisible[Plus@@Prime/@#,Times@@#]&]],{n,0,30}]

A331384 Numbers whose sum of prime factors is equal to their product of prime indices.

Original entry on oeis.org

35, 65, 95, 98, 154, 324, 364, 476, 623, 763, 791, 812, 826, 938, 994, 1036, 1064, 1106, 1144, 1148, 1162, 1288, 1484, 1708, 1736, 2044, 2408, 2632, 4320, 5408, 6688, 6974, 8000, 10208, 12623, 12701, 12779, 14144, 19624, 23144, 25784, 26048, 44176, 47696

Offset: 1

Gus Wiseman, Jan 16 2020

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Numbers k such that A001414(k) = A003963(k). - Jason Yuen, Dec 19 2024

			The sequence of terms together with their prime indices begins:
     35: {3,4}
     65: {3,6}
     95: {3,8}
     98: {1,4,4}
    154: {1,4,5}
    324: {1,1,2,2,2,2}
    364: {1,1,4,6}
    476: {1,1,4,7}
    623: {4,24}
    763: {4,29}
    791: {4,30}
    812: {1,1,4,10}
    826: {1,4,17}
    938: {1,4,19}
    994: {1,4,20}
   1036: {1,1,4,12}
   1064: {1,1,1,4,8}
   1106: {1,4,22}
   1144: {1,1,1,5,6}
   1148: {1,1,4,13}
For example, 476 has prime factors {2,2,7,17} and prime indices {1,1,4,7}, and 2+2+7+17 = 28 = 1*1*4*7, so 476 is in the sequence.

These are the Heinz numbers of the partitions counted by A331383.
Numbers divisible by the sum of their prime factors are A036844.
Partitions whose product is divisible by their sum are A057568.
Numbers divisible by the sum of their prime indices are A324851.
Product of prime indices is divisible by sum of prime indices: A326149.
Partitions whose Heinz number is divisible by their sum are A330950.
Partitions whose Heinz number is divisible by their sum of primes: A330953.
Sum of prime factors is divisible by sum of prime indices: A331380
Partitions whose product divides their sum of primes are A331381.
Cf. A000040, A001414, A003963, A324850, A330954, A331378, A331379, A331382, A331415, A331416.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[1000],Times@@primeMS[#]==Plus@@Prime/@primeMS[#]&]

A331415 Sum of prime factors minus sum of prime indices of n.

Original entry on oeis.org

0, 1, 1, 2, 2, 2, 3, 3, 2, 3, 6, 3, 7, 4, 3, 4, 10, 3, 11, 4, 4, 7, 14, 4, 4, 8, 3, 5, 19, 4, 20, 5, 7, 11, 5, 4, 25, 12, 8, 5, 28, 5, 29, 8, 4, 15, 32, 5, 6, 5, 11, 9, 37, 4, 8, 6, 12, 20, 42, 5, 43, 21, 5, 6, 9, 8, 48, 12, 15, 6, 51, 5, 52, 26, 5, 13, 9, 9

Offset: 1

Gus Wiseman, Jan 17 2020

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

			The prime factors of 12 are {2,2,3}, while the prime indices are {1,1,2}, so a(12) = 7 - 4 = 3.

The number of k's is A331387(k) = sum of k-th column of A331385.
The sum of prime factors of n is A001414(n).
The sum of prime indices of n is A056239(n).
Numbers divisible by the sum of their prime factors are A036844.
Sum of prime factors is divisible by sum of prime indices: A331380
Product of prime indices equals sum of prime factors: A331384.
Cf. A000040, A000720, A001222, A014689, A056239, A112798, A301987, A318995, A325036, A330953, A331378, A331379, A331416, A331418.

Table[Total[Cases[If[n==1,{},FactorInteger[n]],{p_,k_}:>k*(p-PrimePi[p])]],{n,30}]

Totally additive with a(prime(k)) = prime(k) - k = A014689(k).

a(n) = A001414(n) - A056239(n).

A331382 Numbers whose sum of prime factors is divisible by their product of prime indices.

Original entry on oeis.org

1, 2, 4, 8, 16, 18, 20, 32, 35, 44, 60, 62, 64, 65, 68, 72, 92, 95, 98, 128, 154, 160, 168, 256, 264, 288, 291, 303, 324, 364, 400, 476, 480, 512, 618, 623, 624, 642, 706, 763, 791, 812, 816, 826, 938, 994, 1024, 1036, 1064, 1068, 1106, 1144, 1148, 1152, 1162

Offset: 1

Gus Wiseman, Jan 16 2020

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

			The sequence of terms together with their prime indices begins:
     1: {}
     2: {1}
     4: {1,1}
     8: {1,1,1}
    16: {1,1,1,1}
    18: {1,2,2}
    20: {1,1,3}
    32: {1,1,1,1,1}
    35: {3,4}
    44: {1,1,5}
    60: {1,1,2,3}
    62: {1,11}
    64: {1,1,1,1,1,1}
    65: {3,6}
    68: {1,1,7}
    72: {1,1,1,2,2}
    92: {1,1,9}
    95: {3,8}
    98: {1,4,4}
   128: {1,1,1,1,1,1,1}
For example, 60 has prime factors {2,2,3,5} and prime indices {1,1,2,3}, and 12 is divisible by 6, so 60 is in the sequence.

These are the Heinz numbers of the partitions counted by A331381.
Numbers divisible by the sum of their prime factors are A036844.
Partitions whose product is divisible by their sum are A057568.
Numbers divisible by the sum of their prime indices are A324851.
Product of prime indices is divisible by sum of prime indices: A326149.
Partitions whose Heinz number is divisible by their sum are A330950.
Sum of prime factors is divisible by sum of prime indices: A331380
Partitions whose product is equal to the sum of primes are A331383.
Product of prime indices equals sum of prime factors: A331384.
Cf. A000040, A001414, A324850, A330953, A330954, A331378, A331379.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Divisible[Plus@@Prime/@primeMS[#],Times@@primeMS[#]]&]

cp's OEIS Frontend

A014689 a(n) = prime(n)-n, the number of nonprimes less than prime(n).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Magma

Mathematica

PARI

Python

Formula

Extensions

A036844 Numbers k such that k / sopfr(k) is an integer, where sopfr = sum-of-prime-factors, A001414.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Haskell

Mathematica

PARI

Formula

A331383 Number of integer partitions of n whose sum of primes of parts is equal to their product of parts.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

PARI

Extensions

A331379 Number of integer partitions of n whose sum of primes of parts is divisible by n.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A331381 Number of integer partitions of n whose sum of primes of parts is divisible by their product of parts.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A331384 Numbers whose sum of prime factors is equal to their product of prime indices.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A331415 Sum of prime factors minus sum of prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A331382 Numbers whose sum of prime factors is divisible by their product of prime indices.

Views

Author

Keywords

Comments