OFFSET
0,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..1000
MATHEMATICA
Do[ k = 1; While[ Count[ IntegerDigits[ Prime[ k ], 2 ], 0 ] != n, k++ ]; Print[ Prime[ k ] ], {n, 1, 24} ]
PROG
(Haskell)
import Data.List (find)
import Data.Maybe (fromJust)
a066195 n = fromJust $ find ((== n) . a023416) a000040_list
-- Reinhard Zumkeller, Feb 19 2013
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Dec 15 2001
EXTENSIONS
a(25)-a(32) from Alois P. Heinz, Jun 28 2015
STATUS
approved