OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..5000
MAPLE
N:= 2000: # for terms <= N
S:= select(`<=`, {seq(ilcm(NumberTheory:-sigma(x), NumberTheory:-phi(x)), x=1..N)}, N):
sort(convert(S, list)); # Robert Israel, Jun 08 2026
PROG
(PARI) for(n=1, 2000, if(0<sum(i=1, n, if(lcm(sigma(i), eulerphi(i))-n, 0, 1)), print1(n, ", ")))
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, May 10 2002
STATUS
approved
