|
%I #18 Apr 23 2023 22:26:38
%S 5,12,19,26,33,35,36,37,38,39,41,47,54,61,68,75,82,84,85,86,87,88,90,
%T 96,103,110,117,124,131,133,134,135,136,137,139,145,152,159,166,173,
%U 180,182,183,184,185,186,188,194,201,208,215,222,229,231,232,233,234,235
%N Numbers whose base-7 representation contains exactly one 5.
%t Select[Table[n Boole[Length[Select[IntegerDigits[n, 7],#==5&]]==1],{n,235}],Positive] (* _Stefano Spezia_, Apr 23 2023 *)
%Y Cf. A007093.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
%E More terms from _Stefano Spezia_, Apr 23 2023
|
