OFFSET
1,1
COMMENTS
The n-th prime is a member iff A100714(n)=7
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Run-Length Encoding.
EXAMPLE
a(3) = 181 is a member because it is the 3rd prime whose binary representation splits into exactly 7 runs: 181_10 = 10110101_2.
MAPLE
qprime:= proc(n) if isprime(n) then n fi end proc:
[seq(seq(seq(seq(seq(seq(seq(qprime(2^i1 - 2^i2 + 2^i3 - 2^i4 + 2^i5
- 2^i6 + 2^i7-1), i7 = 1..i6-1), i6=i5-1..2, -1), i5=3..i4-1), i4=i3-1..4, -1), i3=5..i2-1), i2=i1-1..6, -1), i1=7..12)]; # Robert Israel, Nov 24 2020
MATHEMATICA
Select[Table[Prime[k], {k, 1, 50000}], Length[Split[IntegerDigits[ #, 2]]] == 7 &]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Joseph Biberstine (jrbibers(AT)indiana.edu), Dec 11 2004
STATUS
approved