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
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Apr 15 1998
STATUS
approved