Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%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_