OFFSET
1,5
FORMULA
a(n) = A061358(prime(n)-1). - David Wasserman, Oct 08 2005
EXAMPLE
11-1=3+7=5+5, so a(5)=2.
MATHEMATICA
Table[Count[IntegerPartitions[p-1, {2}], _?(AllTrue[#, PrimeQ]&)], {p, Prime[ Range[90]]}] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Sep 09 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Yasutoshi Kohmoto, Jan 27 2005
EXTENSIONS
More terms from David Wasserman, Oct 08 2005
STATUS
approved