|
11, 11, 29, 13, 23, 13, 11, 19, 37, 29, 71, 23, 23, 109, 47, 41, 5, 83, 17, 157, 19, 53, 37, 29, 167, 11, 53, 5, 13, 19, 5, 229, 103, 151, 263, 73, 23, 163, 43, 17, 167, 29, 19, 41, 83, 17, 191, 139, 89, 109, 149, 37, 43, 73, 53, 59, 5, 379, 383, 89, 233, 167
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|