|
|
A127955
|
|
Composite numbers of the form (2^p+1)/3 where p is a prime.
|
|
13
|
|
|
178956971, 45812984491, 733007751851, 46912496118443, 3002399751580331, 192153584101141163, 49191317529892137643, 787061080478274202283, 3148244321913096809131, 3223802185639011132549803
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
a = {}; Do[c = (2^Prime[x] + 1)/3; If[PrimeQ[c] == False, AppendTo[a, c]], {x, 2, 30}]; a
Select[(2^Prime[Range[2, 30]]+1)/3, CompositeQ] (* Harvey P. Dale, Feb 04 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|