login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Numbers having exactly one 6 in base 8.
1

%I #28 Nov 28 2024 11:10:43

%S 6,14,22,30,38,46,48,49,50,51,52,53,55,62,70,78,86,94,102,110,112,113,

%T 114,115,116,117,119,126,134,142,150,158,166,174,176,177,178,179,180,

%U 181,183,190,198,206,214,222,230,238,240,241,242,243,244,245,247,254,262

%N Numbers having exactly one 6 in base 8.

%H Paolo Xausa, <a href="/A043445/b043445.txt">Table of n, a(n) for n = 1..10000</a> (corrected original data from Robert Israel)

%p filter:= proc(n) numboccur(6,convert(n,base,8)) = 1 end proc:

%p select(filter, [$1..1000]); # _Robert Israel_, Nov 27 2024

%t Select[Range[500], DigitCount[#, 8, 6] == 1 &] (* _Paolo Xausa_, Nov 26 2024 *)

%Y Cf. A007094, A043417, A043477, A043513.

%K nonn,easy,base

%O 1,1

%A _Clark Kimberling_