OFFSET
1,1
COMMENTS
MATHEMATICA
fQ[n_] := Module[{b = IntegerDigits[n, 2], s}, s = Total@ b; If[s <= 1, True, k = 1; While[s = 2 s - b[[k]]; s < n, k++]; s == n]]; Select[Prime@ Range[10^6], fQ[# - 1] &] (* Michael De Vlieger, Dec 09 2015, after T. D. Noe at A162724 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Jaroslav Krizek, Dec 08 2015
STATUS
approved