A261448 Numbers n >= 100 that are divisible by n mod 100.
101, 102, 104, 105, 110, 120, 125, 150, 201, 202, 204, 205, 208, 210, 220, 225, 240, 250, 301, 302, 303, 304, 305, 306, 310, 312, 315, 320, 325, 330, 350, 360, 375, 401, 402, 404, 405, 408, 410, 416, 420, 425, 440, 450, 480, 501, 502, 504, 505, 510, 520, 525, 550
Offset: 1
Programs
-
Mathematica
Select[Range[100, 1000], Quiet@ Divisible[#, Mod[#, 100]] &] (* Giovanni Resta, Aug 19 2015 *)
-
PARI
isok(n) = (n>100) && (dd = n % 100) && !(n % dd); \\ Michel Marcus, Aug 19 2015
Extensions
More terms from Michel Marcus, Aug 19 2015
Comments