OFFSET
1,1
FORMULA
A085496(a(n)) = 1.
MATHEMATICA
seqQ[p_] := Module[{d = Most[Divisors[p+1]]}, SeriesCoefficient[Series[Product[1 + x^d[[i]], {i, Length[d]}], {x, 0, p}], p] == 1]; Select[Range[1000], PrimeQ[#] && seqQ[#] &] (* Amiram Eldar, Jan 13 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jul 03 2003
EXTENSIONS
a(14)-a(38) from Alois P. Heinz, Apr 30 2012
a(39)-a(46) from Amiram Eldar, Jan 13 2020
STATUS
approved