|
%I #9 Oct 02 2021 09:22:44
%S 1,2,3,4,5,7,8,9,11,13,16,17,18,19,23,24,25,27,29,31,32,36,37,40,41,
%T 43,45,47,48,49,50,53,54,56,59,61,63,64,67,71,72,73,75,79,80,81,83,88,
%U 89,96,97,98,99,100,101,103,104,107,108,109,112,113,117,120,121,125,127
%N Numbers k such that rad(k) - phi(k) <= 1, where rad = A007947 and phi = A000010.
%o (PARI) is(n)=my(f=factor(n)[,1],r=prod(i=1,#f,f[i])); r-n/r*prod(i=1,#f,f[i]-1)<=1 \\ _Charles R Greathouse IV_, Feb 21 2013
%Y Cf. A000010 (phi), A007947 (rad).
%K nonn
%O 1,2
%A _Reinhard Zumkeller_, Apr 10 2003
|
