The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A032563 Numbers k such that A102489(k) is divisible by k. 27

%I

%S 1,2,3,4,5,6,7,8,9,1038,1040,2078,2080,2118,2120,3158,3160,3200,4198,

%T 4238,4240,5278,5280,5318,5320,6358,6360,6400,7398,7438,7440,8478,

%U 8480,8518,8520,9558,9560,9600,12480,25440,38400,112308,449440

%N Numbers k such that A102489(k) is divisible by k.

%H Robert Israel, <a href="/A032563/b032563.txt">Table of n, a(n) for n = 1..71</a>

%e 9_10 / 9_16 = 9/9 = 1;

%e 4152_10 / 1038_16 = 4152/1038 = 4;

%e 4160_10 / 1040_16 = 4160/1040 = 4;

%e 8312_10 / 2078_16 = 8312/2078 = 4.

%p d:= Vector(10^7,1):

%p for i from 1 to 7 do

%p inds:= 10^i*[\$1..10^(7-i)];

%p d[inds]:= (2*16^i+3)/5;

%p od:

%p b:= Vector(10^7):

%p b[1]:= 1:

%p for i from 2 to 10^7 do

%p b[i]:= b[i-1]+d[i]

%p od:

%p select(t-> (b[t]/ t)::integer, [\$1..10^7]); # _Robert Israel_, Aug 30 2015

%t Select[Range[16^5], IntegerQ[FromDigits[IntegerDigits[#], 16]/#] &] (* _Michael De Vlieger_, Aug 29 2015 *)

%Y Cf. A032564, A102489.

%K nonn,base

%O 1,2

%A _Patrick De Geest_, Apr 15 1998

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified March 27 18:55 EDT 2023. Contains 361575 sequences. (Running on oeis4.)