|
%I #12 Sep 13 2023 07:28:54
%S 1093,2551,3037,3199,3253,3271,3277,3279,3281,3283,3289,3307,3361,
%T 3523,4009,5467,6925,7411,7573,7627,7645,7651,7653,7655,7657,7663,
%U 7681,7735,7897,8383,8869,9031,9085,9103,9109,9111
%N Numbers with exactly 7 1's in their ternary expansion.
%H Seiichi Manyama, <a href="/A023698/b023698.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[ Range[ 9153 ], (Count[ IntegerDigits[ #, 3 ], 1 ]==7)& ]
%K nonn,base,easy
%O 1,1
%A _Olivier Gérard_
|
