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,2

Links

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

Example

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.

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 *)

Crossrefs

Cf. A032564, A102489.

Sequence in context: A349423 A004904 A122624 * A223081 A077727 A348428

Adjacent sequences: A032560 A032561 A032562 * A032564 A032565 A032566

Keyword

nonn,base

Author

Patrick De Geest, Apr 15 1998

Status

approved