OFFSET
1,17
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(27)=2 because it is written as 27 in base 10 and 25 in base 11 and 27 is not divisible by 2, 5 or 7.
MAPLE
f:= proc(n)
nops(select(b -> not ormap(d -> d <> 0 and n mod d = 0, convert(n, base, b)), [$3 .. (n-1)/2]))
end proc:
map(f, [$1..100]); # Robert Israel, Jan 09 2024
CROSSREFS
KEYWORD
AUTHOR
Henry Bottomley, May 04 2000
STATUS
approved