|
| |
|
|
A083214
|
|
Numbers n for which A000041(n) mod 3==0.
|
|
2
| |
|
|
3, 7, 9, 10, 14, 16, 17, 20, 21, 22, 24, 26, 30, 32, 33, 35, 39, 40, 41, 43, 46, 48, 51, 52, 53, 57, 61, 63, 68, 70, 71, 75, 80, 88, 97, 102, 104, 106, 107, 111, 115, 124, 125, 129, 133, 138, 142, 147, 151, 160, 162, 163, 164, 169, 173, 178, 180, 181, 189, 191, 193
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
FORMULA
| Conjecture : a(n)=3n+o(n) - Benoit Cloitre (benoit7848c(AT)orange.fr), Oct 06 2005
A000041(a(n))=A087183(n) - Zak Seidov (zakseidov(AT)gmail.com), Apr 03 2007
|
|
|
EXAMPLE
| A000041(7)=15=0 mod 3
|
|
|
MATHEMATICA
| Select[Range[250], Mod[PartitionsP[ # ], 3]==0&] - Zak Seidov (zakseidov(AT)gmail.com), Apr 03 2007
|
|
|
PROG
| (PARI) { v=[1, 1, 2, 3, 5, 7, 11, 15, 22, 30, 42, 56, 77, 101, 135, 176, 231, 297, 385, 490, 627, 792, 1002, 1255, 1575, 1958, 2436, 3010, 3718, 4565, 5604, 6842, 8349, 10143, 12310, 14883, 17977, 21637, 26015, 31185, 37338, 44583, 53174, 63261, 75175, 89134]; for (i=2, length(v)-1, if (v[i]%3==0, print1(i-1", "))) }
(PARI) for(n=1, 300, if(polcoeff(1/eta(x)+O(x^(n+1)), n)%3==0, print1(n, ", "))) (Cloitre)
|
|
|
CROSSREFS
| Cf. A000041.
Cf. A000041, A087183.
Sequence in context: A160800 A099248 A082575 * A091210 A023992 A179197
Adjacent sequences: A083211 A083212 A083213 * A083215 A083216 A083217
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Jon Perry (perry(AT)globalnet.co.uk), Jun 01 2003
|
|
|
EXTENSIONS
| More terms from Benoit Cloitre (benoit7848c(AT)orange.fr), Oct 06 2005
|
| |
|
|
