Cullen and Woodall numbers: Difference between revisions
Content added Content deleted
(Add Factor) |
|||
Line 452: | Line 452: | ||
First 20 Woodall numbers: |
First 20 Woodall numbers: |
||
1 7 23 63 159 383 895 2047 4607 10239 22527 49151 106495 229375 491519 1048575 2228223 4718591 9961471 20971519</pre> |
1 7 23 63 159 383 895 2047 4607 10239 22527 49151 106495 229375 491519 1048575 2228223 4718591 9961471 20971519</pre> |
||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
|||
<lang Mathematica>ClearAll[CullenNumber, WoodallNumber] |
|||
SetAttributes[{CullenNumber, WoodallNumber}, Listable] |
|||
CullenNumber[n_Integer] := n 2^n + 1 |
|||
WoodallNumber[n_Integer] := n 2^n - 1 |
|||
CullenNumber[Range[20]] |
|||
WoodallNumber[Range[20]] |
|||
cps = {}; |
|||
Do[ |
|||
If[PrimeQ[CullenNumber[i]], |
|||
AppendTo[cps, i]; |
|||
If[Length[cps] >= 5, Break[]] |
|||
] |
|||
, |
|||
{i, 1, \[Infinity]} |
|||
] |
|||
cps |
|||
wps = {}; |
|||
Do[ |
|||
If[PrimeQ[WoodallNumber[i]], |
|||
AppendTo[wps, i]; |
|||
If[Length[wps] >= 12, Break[]] |
|||
] |
|||
, |
|||
{i, 1, \[Infinity]} |
|||
]; |
|||
wps</lang> |
|||
{{out}} |
|||
<pre>{3, 9, 25, 65, 161, 385, 897, 2049, 4609, 10241, 22529, 49153, 106497, 229377, 491521, 1048577, 2228225, 4718593, 9961473, 20971521} |
|||
{1, 7, 23, 63, 159, 383, 895, 2047, 4607, 10239, 22527, 49151, 106495, 229375, 491519, 1048575, 2228223, 4718591, 9961471, 20971519} |
|||
{1, 141, 4713, 5795, 6611} |
|||
{2, 3, 6, 30, 75, 81, 115, 123, 249, 362, 384, 462}</pre> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |
||
Line 495: | Line 531: | ||
First 12 Woodall primes: (in terms of n) |
First 12 Woodall primes: (in terms of n) |
||
2 3 6 30 75 81 115 123 249 362 384 462</pre> |
2 3 6 30 75 81 115 123 249 362 384 462</pre> |
||
=={{header|Phix}}== |
=={{header|Phix}}== |
||
<!--<lang Phix>(phixonline)--> |
<!--<lang Phix>(phixonline)--> |