|
| NAME
|
Products of 3 distinct primes whose binary expansion is palindromic.
|
|
| DATA
|
165, 195, 231, 255, 273, 455, 561, 645, 903, 1023, 1105, 1533, 2015, 2193, 2289, 2409, 2553, 2829, 3171, 3219, 3435, 3855, 3999, 4161, 4433, 4953, 5285, 5397, 5621, 5709, 6141, 6307, 6643, 7163, 7239, 7511, 8481, 9417, 9705, 10245, 11805, 12093, 12291
|
|
| OFFSET
|
1,1
|
|
| EXAMPLE
|
165=3*5*11={1,0,1,0,0,1,0,1} 195=3*5*13={1,1,0,0,0,0,1,1}
|
|
| MATHEMATICA
|
f1[n_]:=Reverse[IntegerDigits[n, 2]]==IntegerDigits[n, 2]; f2[n_]:=Last/@FactorInteger[n]=={1, 1, 1} lst={}; Do[If[f1[n]&&f2[n], AppendTo[lst, n]], {n, 8!}]; lst
|
|
| KEYWORD
|
nonn
|
|
| AUTHOR
|
Vladimir Orlovsky (4vladimir(AT)gmail.com), Nov 23 2009
|
|
| STATUS
|
approved
|
|
