OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
5 is a member as 6 is divisible by 3^1 as well as by 2^1.
17 is a member as 18 is divisible by 3^2 but not by 2^2.
MATHEMATICA
q[p_] := Module[{prod = Product[k, {k, p + 1, NextPrime[p] - 1}], e2}, e2 = IntegerExponent[prod, 2]; Max[FactorInteger[prod/2^e2][[;; , 2]]] >= e2]; Select[Range[2000], PrimeQ[#] && q[#] &] (* Amiram Eldar, Apr 01 2021 *)
PROG
(PARI) f(p) = prod(k=p+1, nextprime(p+1)-1, k); \\ A061214
isok(p) = {my(prd = f(p), e = valuation(prd, 2), ofprd = prd/2^e); if (prd > 1, (ofprd == 1) || (e <= vecmax(factor(ofprd)[, 2]))); } \\ Michel Marcus, Apr 01 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Nov 02 2002
EXTENSIONS
Wrong term removed and more terms added by Amiram Eldar, Apr 01 2021
STATUS
approved