|
| |
|
|
A090593
|
|
Smallest prime with n consecutive ones in its binary expansion.
|
|
2
|
|
|
|
2, 3, 7, 47, 31, 191, 127, 1021, 3583, 4093, 6143, 16381, 8191, 81919, 262139, 1114111, 131071, 786431, 524287, 4194301, 14680063, 16777213, 67108859, 654311423, 671088637, 738197503, 536870909
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Table of n, a(n) for n=1..27.
|
|
|
EXAMPLE
|
a(1)= 2 since 2_d = 10_b. a(2) = 3 since 3_d = 11_b. a(3)= 7 since 7_d = 111_b. a(4)= 47 since 47_d = 101111_b.
|
|
|
MATHEMATICA
|
a = Table[0, {30}]; NextPrim[n_] := Block[{k = n + 1}, While[ ! PrimeQ[k], k++ ]; k]; p = 2; Do[ m = Length[ Union[ DeleteCases[ Split[ IntegerDigits[p, 2]], 0, 2]][[ -1]]]; If[ a[[m]] == 0, a[[m]] = p]; p = NextPrim[p], {n, 1, 117000000}]
|
|
|
CROSSREFS
|
Cf. A090000, A090587.
Sequence in context: A086542 A058181 A198959 * A030090 A075461 A059785
Adjacent sequences: A090590 A090591 A090592 * A090594 A090595 A090596
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Robert G. Wilson v, Dec 03 2003
|
|
|
STATUS
|
approved
|
| |
|
|
