|
| |
|
|
A111751
|
|
Numbers n such that P(3*n + 1) has exactly two distinct prime factors - where P(m) is the partition number.
|
|
0
| |
|
|
2, 22, 25, 28, 37, 40, 60, 73, 78, 80, 129, 135, 158, 162, 215, 220, 228, 238, 269, 285, 315, 332, 344, 347, 355, 365, 366, 390, 397, 402, 439, 443, 470, 477, 533, 549, 653, 694, 710, 715, 716, 745, 765, 782, 822
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| If n=2 then P(3*n + 1) = 15 = 3 x 5 (two distinct prime factors), so the first term is 2.
|
|
|
MAPLE
| with(combinat): with(numtheory): a:=proc(n) if nops(factorset(numbpart(3*n+1)))=2 then n else fi end: seq(a(n), n=1..300); (Deutsch)
|
|
|
MATHEMATICA
| For[n = 1, n < 550, n++, If[Length[FactorInteger[PartitionsP[3*n + 1]]] == 2, Print[n]]] (Steinerberger)
|
|
|
CROSSREFS
| Sequence in context: A080283 A080433 A022373 * A037416 A057871 A152243
Adjacent sequences: A111748 A111749 A111750 * A111752 A111753 A111754
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Parthasarathy Nambi (PachaNambi(AT)yahoo.com), Nov 19 2005
|
|
|
EXTENSIONS
| More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com) and Emeric Deutsch (deutsch(AT)duke.poly.edu), Jan 27 2006
More terms from Emeric Deutsch (deutsch(AT)duke.poly.edu), Jan 30 2006
|
| |
|
|
