login
A100365
Prime numbers q such that q, q+1, q+2, q+3, q+4 have 2, 4, 8, 16, 32 divisors respectively.
4
1124581, 2101621, 2135701, 3829381, 5801701, 6097381, 6453541, 6535861, 6609781, 6799621, 6972661, 7055317, 7527061, 8281381, 8524981, 9412981, 9895141, 11455141, 11901781, 12043621, 12929941, 13749061, 14747701, 15504661
OFFSET
1,1
LINKS
MATHEMATICA
Select[Prime[Range[1002000]], DivisorSigma[0, Range[0, 4]+#]=={2, 4, 8, 16, 32}&] (* Harvey P. Dale, Oct 04 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Nov 19 2004
STATUS
approved