|
Search: id:A135386
|
|
| |
|
| 10384593717069655257060992658440191, 2854495385411919762116571938898990272765493247, 182687704666362864775460604089535377456991567871
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
This sequence is a subset of A065341
|
|
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
|
Cf. A000225, A065341, A054723, A134852, A135975, A135976, A135977, A135979.
Sequence in context: A083103 A115532 A074194 this_sequence A095462 A115543 A095464
Adjacent sequences: A135383 A135384 A135385 this_sequence A135387 A135388 A135389
|
|
KEYWORD
|
nonn,bref
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Dec 09 2007
|
|
|
Search completed in 0.002 seconds
|
