OFFSET
1,1
COMMENTS
Odd Smith numbers. - Robert Israel, Aug 25 2024
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local F;
if isprime(n) then return false fi;
F:= ifactors(n)[2];
convert(convert(n, base, 10), `+`) = convert(map(t -> t[2]*convert(convert(t[1], base, 10), `+`), F), `+`)
end proc:
select(filter, [seq(i, i=9..10000, 2)]); # Robert Israel, Aug 25 2024
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jan 04 1999
EXTENSIONS
Title made more precise by Sean A. Irvine, Nov 30 2020
STATUS
approved