A032563 Numbers k such that A102489(k) is divisible by k.

1, 2, 3, 4, 5, 6, 7, 8, 9, 1038, 1040, 2078, 2080, 2118, 2120, 3158, 3160, 3200, 4198, 4238, 4240, 5278, 5280, 5318, 5320, 6358, 6360, 6400, 7398, 7438, 7440, 8478, 8480, 8518, 8520, 9558, 9560, 9600, 12480, 25440, 38400, 112308, 449440

Offset: 1

Author

Patrick De Geest, Apr 15 1998

Keywords

• nonn
• base

Examples

			9_10 / 9_16 = 9/9 = 1;
4152_10 / 1038_16 = 4152/1038 = 4;
4160_10 / 1040_16 = 4160/1040 = 4;
8312_10 / 2078_16 = 8312/2078 = 4.
		

Links

• Robert Israel, Table of n, a(n) for n = 1..71

Crossrefs

Cf. A032564, A102489.

Programs

Maple

d:= Vector(10^7,1):
for i from 1 to 7 do
   inds:= 10^i*[$1..10^(7-i)];
   d[inds]:= (2*16^i+3)/5;
od:
b:= Vector(10^7):
b[1]:= 1:
for i from 2 to 10^7 do
  b[i]:= b[i-1]+d[i]
od:
select(t-> (b[t]/ t)::integer, [$1..10^7]); # Robert Israel, Aug 30 2015

Mathematica

Select[Range[16^5], IntegerQ[FromDigits[IntegerDigits[#], 16]/#] &] (* Michael De Vlieger, Aug 29 2015 *)