|
Search: id:A090593
|
|
|
| A090593 |
|
Smallest prime with n consecutive ones in its binary expansion. |
|
+0
3
|
|
| 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; listen)
|
|
|
OFFSET
|
1,1
|
|
|
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: A032053 A086542 A058181 this_sequence A030090 A075461 A059785
Adjacent sequences: A090590 A090591 A090592 this_sequence A090594 A090595 A090596
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 03 2003
|
|
|
Search completed in 0.002 seconds
|
