OFFSET
1,1
COMMENTS
Most primes appear to fall into this category. - Charlie Neder, Sep 17 2018
LINKS
Charlie Neder, Table of n, a(n) for n = 1..949
MATHEMATICA
Prime@ Position[Array[If[Length@ # == 0, {0}, Length /@ #] &@ DeleteCases[Split@ IntegerDigits[Prime@ #, 2], _?(First@ # == 1 &)] &, 100], _?(AnyTrue[#, PrimeQ] &), {1}, Heads -> False][[All, 1]] (* Michael De Vlieger, Nov 25 2018 *)
PROG
(PARI) ok(n)={if(isprime(n), while(n, my(t=valuation(n, 2)); if(isprime(t), return(1)); n >>= t + 1)); 0} \\ Andrew Howroyd, Nov 09 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Sep 17 2018
EXTENSIONS
More terms from Charlie Neder, Sep 17 2018
STATUS
approved