This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A135386 #16 Oct 10 2024 08:18:03
%S A135386 10384593717069655257060992658440191,
%T A135386 2854495385411919762116571938898990272765493247,
%U A135386 182687704666362864775460604089535377456991567871
%N A135386 Mersenne composites A065341 with 4 or more prime factors.
%H A135386 Amiram Eldar, <a href="/A135386/b135386.txt">Table of n, a(n) for n = 1..102</a>
%p A135386 A135386 := proc(n) local i;
%p A135386 i := 2^(ithprime(n))-1:
%p A135386 if (nops(numtheory[factorset](i)) > 3) then
%p A135386 RETURN (i)
%p A135386 fi: end: seq(A135386(n), n=1..37); # _Jani Melik_, Feb 09 2011
%t A135386 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
%Y A135386 Subsequence of A065341.
%Y A135386 Cf. A000225, A054723, A134852, A135975, A135976, A135977, A135979.
%K A135386 nonn
%O A135386 1,1
%A A135386 _Artur Jasinski_, Dec 09 2007