|
|
A372887
|
|
Number of integer partitions of n whose distinct parts are the binary indices of some prime number.
|
|
6
|
|
|
0, 0, 1, 1, 3, 3, 6, 8, 12, 14, 21, 29, 36, 48, 56, 74, 94, 123, 144, 195, 235, 301, 356, 456, 538, 679, 803, 997, 1189, 1467, 1716, 2103, 2488, 2968, 3517, 4185, 4907, 5834, 6850, 8032, 9459, 11073, 12933, 15130, 17652, 20480, 24011, 27851, 32344, 37520
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,5
|
|
COMMENTS
|
A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793.
Note the inverse of A048793 (binary indices) takes a set s to Sum_i 2^(s_i-1).
|
|
LINKS
|
|
|
EXAMPLE
|
The partition y = (4,3,1,1) has distinct parts {1,3,4}, which are the binary indices of 13, which is prime, so y is counted under a(9).
The a(2) = 1 through a(9) = 14 partitions:
(2) (21) (22) (221) (51) (331) (431) (3321)
(31) (311) (222) (421) (521) (4221)
(211) (2111) (321) (511) (2222) (4311)
(2211) (2221) (3221) (5211)
(3111) (3211) (3311) (22221)
(21111) (22111) (4211) (32211)
(31111) (5111) (33111)
(211111) (22211) (42111)
(32111) (51111)
(221111) (222111)
(311111) (321111)
(2111111) (2211111)
(3111111)
(21111111)
|
|
MATHEMATICA
|
Table[Length[Select[IntegerPartitions[n], PrimeQ[Total[2^(Union[#]-1)]]&]], {n, 0, 30}]
|
|
CROSSREFS
|
These partitions have Heinz numbers A372850.
A014499 lists binary indices of prime numbers.
A372689 lists numbers whose binary indices sum to a prime.
A372885 lists primes whose binary indices sum to a prime, indices A372886.
Binary indices:
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|