A089583 Numbers n which are a multiple of A068505(n) (= n read in base m+1 where m = largest digit of n).
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 19, 21, 29, 39, 40, 49, 59, 69, 79, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 109, 112, 119, 120, 129, 139, 149, 159, 169, 179, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 209, 210, 219, 229, 239, 249, 259, 269, 279, 289
Offset: 1
Examples
a(10)=10 because when 10 is interpreted as base 2 and converted back to base 10, the result, 2, divides evenly into 10.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Programs
-
Mathematica
bQ[n_]:=Module[{idn=IntegerDigits[n]},Divisible[n,FromDigits[idn, Max[ idn]+1]]]; Select[Range[300],bQ] (* Harvey P. Dale, Aug 30 2014 *)
-
PARI
is_A089583(n,d,b)= 9<(b=1+vecmax(d=eval(Vec(Str(n))))) || n%sum(i=1,#d,d[i]*b^(#d-i))==0 \\ M. F. Hasler, Apr 05 2009
Extensions
Definition reworded, minor corrections by M. F. Hasler, Apr 05 2009
Comments