|
%I #8 May 07 2016 00:31:01
%S 16,20,24,28,32,36,40,42,44,48,52,54,56,60,64,66,68,72,76,78,80,81,84,
%T 88,90,92,96,99,100,102,104,108,110,112,114,116,117,120,124,126,128,
%U 130,132,135,136,138,140,144,148,150,152,153,156,160,162,164,168,170,171
%N Numbers n such that A072499(n)!=A072504(n)
%H Benedict W. J. Irwin, <a href="/A272533/b272533.txt">Table of n, a(n) for n = 1..5600</a>
%e A072499(16) = 8 != A072504(16) = 4.
%o (PARI) isok(n) = { my(dd = select(x->x <= sqrt(n), divisors(n))); lcm(dd) != prod(k=1, #dd, dd[k]);} \\ _Michel Marcus_, May 06 2016
%Y Cf. A072499, A072504
%K nonn
%O 1,1
%A _Benedict W. J. Irwin_, May 02 2016
|
