|
Search: id:A071852
|
|
|
| A071852 |
|
Smallest k such that 2^k+1 has exactly n distinct prime factors. |
|
+0
1
|
|
| 1, 5, 14, 18, 30, 42, 99, 114, 78, 90, 175, 150, 324, 210, 315, 234, 270, 585, 405, 765, 390, 450, 510
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
FORMULA
|
a(n) = min (k : A046799(k) = n )
|
|
MATHEMATICA
|
For[n = 1, n < 15, n++, k := 1; While[Not[Length[FactorInteger[2^k + 1]] == n], k++ ]; Print[k]] - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Apr 09 2006
|
|
PROGRAM
|
(PARI) for(n=1, 10, s=1; while(abs(omega(2^s+1)-n)>0, s++); print1(s, ", "))
|
|
CROSSREFS
|
Sequence in context: A101774 A053782 A102884 this_sequence A022139 A003248 A071317
Adjacent sequences: A071849 A071850 A071851 this_sequence A071853 A071854 A071855
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Benoit Cloitre (benoit7848c(AT)orange.fr), Jun 09 2002
|
|
EXTENSIONS
|
175 and 150 from Erich Friedman (efriedma(AT)stetson.edu), Aug 08 2005
a(13)-a(23) from Donovan Johnson (donovan.johnson(AT)yahoo.com), Apr 22 2008
|
|
|
Search completed in 0.002 seconds
|
