OFFSET
1,2
COMMENTS
From Robert Israel, May 11 2017: (Start)
Numbers n such that n is divisible by A007953(n) and 9*d (mod A007953(n)) are all equal for all digits d of n.
If n is in the intersection of this sequence and A011540, then so is 10*n. In particular, the sequence is infinite.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
126 is a member since 126, 162, 216, 261, 612 and 621 are all divisible by (1+2+6)=9. 209 is not a member since 29 is not divisible by (2+9)=11.
MAPLE
filter:= proc(n) local s, L;
L:= convert(n, base, 10);
s:= convert(L, `+`);
n mod s = 0 and nops({seq(9*d mod s, d = L)}) = 1
end proc:
select(filter, [$1..1000]); # Robert Israel, May 11 2017
MATHEMATICA
d[n_]:=IntegerDigits[n]; sod[n_]:=Total[d[n]]; t={}; Do[t1=Table[FromDigits[k], {k, Permutations[d[n]]}]; If[Select[t1, Mod[#, sod[n]]!=0 &]=={}, AppendTo[t, n]], {n, 288}]; t
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jayanta Basu, May 15 2013
STATUS
approved