login
Numbers whose base-7 representation contains exactly one 5.
0

%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