login
A135386
Mersenne composites A065341 with 4 or more prime factors.
1
10384593717069655257060992658440191, 2854495385411919762116571938898990272765493247, 182687704666362864775460604089535377456991567871
OFFSET
1,1
LINKS
MAPLE
A135386 := proc(n) local i;
i := 2^(ithprime(n))-1:
if (nops(numtheory[factorset](i)) > 3) then
RETURN (i)
fi: end: seq(A135386(n), n=1..37); # Jani Melik, Feb 09 2011
MATHEMATICA
k = {}; Do[If[ ! PrimeQ[2^Prime[n] - 1], c = FactorInteger[2^Prime[n] - 1]; d = Length[c]; If[d >3, AppendTo[k, 2^Prime[n] - 1]]], {n, 1, 40}]; k
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Dec 09 2007
STATUS
approved