OFFSET
1,2
COMMENTS
If k is a term, then so is 3*k+1. - Robert Israel, Mar 04 2024
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local L;
L:= convert(n, base, 3);
numboccur(1, L) > nops(L)/2
end proc:
select(filter, [$1..1000]); # Robert Israel, Mar 04 2024
PROG
(PARI) select( {is_A355275(n)=vecsum(n=digits(n, 3)%2)*2>#n}, [0..299])
(Python)
from sympy.ntheory import digits
def ok(n):
d = digits(n, 3)[1:]
return len(d) < 2*sum(1 for di in d if di%2)
print([k for k in range(293) if ok(k)]) # Michael S. Branicky, Jul 03 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Jul 03 2022
STATUS
approved