OFFSET
1,1
MATHEMATICA
f[n_] := FromDigits[IntegerDigits[n, 2], 4]; pmax[n_] := FactorInteger[n][[-1, 1]]; pmax /@ Select[Range[1300], CompositeQ[#] && PrimeQ[f[#]] &] (* Amiram Eldar, Aug 31 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Nov 23 2008
EXTENSIONS
More terms from Amiram Eldar, Aug 31 2019
STATUS
approved