login
A341810
a(n) is the least integer k such that 1/(Sum_{j=1..n} 1/phi(k*j)) is an integer.
3
1, 3, 4, 7, 22, 31, 24, 101, 53, 22, 563, 149, 75, 321, 310, 653, 3110, 907, 5926, 16829, 2505, 12735, 96179, 12969, 5931, 18033, 20231, 61483, 579559, 1323199, 1477613, 1133209, 65051, 151643, 152567, 610799, 459949, 154553, 17006, 156863, 285170
OFFSET
1,2
LINKS
PROG
(PARI) a(n) = my(k=1); while (denominator(1/sum(j=1, n, 1/eulerphi(k*j))) != 1, k++); k; \\ Michel Marcus, Feb 20 2021
CROSSREFS
Inspired by A341799.
Sequence in context: A030724 A124082 A056655 * A338511 A332971 A292033
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Feb 20 2021
STATUS
approved