OFFSET
1,3
COMMENTS
Conjecture: a(n) > 0 for all n > 1. Also, any integer n > 1 can be written as (p + 1)/6 + q, where p is a prime and q is a term of A000009.
LINKS
Zhi-Wei Sun, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
Do[m=0; Do[If[PartitionsQ[k]>=n, Goto[aa]]; If[k>1&&PartitionsQ[k]==PartitionsQ[k-1], Goto[bb]];
If[PrimeQ[6(n-PartitionsQ[k])+1], m=m+1]; Label[bb]; Continue, {k, 1, 2n}];
Label[aa]; Print[n, " ", m]; Continue, {n, 1, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zhi-Wei Sun, Dec 19 2013
STATUS
approved