OFFSET
1,2
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
EXAMPLE
222 = 336_8 has a run length of two and a run length of 1, which are distinct lengths, so 222 is in the sequence. - R. J. Mathar, Jan 18 2018
MAPLE
rlset := proc(L::list)
local lset, rl, i ;
lset := [] ;
rl := 1 ;
for i from 2 to nops(L) do
if op(i, L) = op(i-1, L) then
rl := rl+1 ;
else
lset := [op(lset), rl] ;
rl := 1;
end if;
end do:
lset := [op(lset), rl] ;
end proc:
isA044819 := proc(n)
local dgs, rl;
dgs := convert(n, base, 8) ;
rl := rlset(dgs) ;
if nops(rl) = nops( convert(rl, set)) then
true;
else
false;
end if;
end proc:
for n from 1 to 400 do
if isA044819(n) then
printf("%d, ", n) ;
end if;
end do: # R. J. Mathar, Jan 18 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved