OFFSET
1,4
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
FromDigits[Rest[IntegerDigits[#, 2]], 2]&/@Prime[Range[80]] (* Harvey P. Dale, Apr 20 2012 *)
PROG
(PARI) for(n=1, 72, p=prime(n); p-=2^(#binary(p)-1); print1(p, ", ")) \\ Washington Bomfim, Jan 18 2011
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Reinhard Zumkeller, Feb 14 2004
STATUS
approved