Ana Rechtman, <a href="http://images-archive.math.cnrs.fr/Septembre-2019-3e-defi.html">Septembre 2019, 3e défi</a>, Images des Mathématiques, CNRS, 2019 (in French).
editing
approved
with(numtheory): T:=proc(w) local x, y, z; x:=0; y:=w;
for z from 1 to ilog10(w)+1 do x:=10*x+(y mod 10); y:=trunc(y/10); od; x; end;
P:=proc(q) local n; for n from 1 to q do if type(n/T(n+1), integer)
then print(n); fi; od; end: P(10^9); # Paolo P. Lava, Nov 24 2014
approved
editing
proposed
approved
editing
proposed
741 = 3 * R(742) = 3 * 247.
Ana Rechtman, <a href="http://images.math.cnrs.fr/Septembre-2019-3e-defi.html">Septembre 2019, 3e défi</a>, Images des Mathématiques, CNRS, 2019 (in French).
741 = 3 * 247 = 3 * R(742) = 3 * R(741+1).
a(24) - a(31) from Paolo P. Lava, Nov 24 2014
approved
editing
proposed
approved
editing
proposed
For n>0, 10^n-1 is a term (that is, A002283 except 0). - Michel Marcus, Nov 25 2014
proposed
editing
editing
proposed