login
A032563
Numbers k such that A102489(k) is divisible by k.
27
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
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
Sequence in context: A349423 A004904 A122624 * A223081 A077727 A348428
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Apr 15 1998
STATUS
approved