login
A304480
a(n) is the least m such that lambda(k) >= n for all k >= m where lambda is A002322, the Carmichael lambda function.
3
1, 3, 25, 25, 241, 241, 505, 505, 505, 505, 505, 505, 65521, 65521, 65521, 65521, 65521, 65521, 65521, 65521, 65521, 65521, 65521, 65521, 131041, 131041, 131041, 131041, 131041, 131041, 171865, 171865, 171865, 171865, 171865, 171865, 138181681, 138181681, 138181681, 138181681, 138181681, 138181681
OFFSET
1,2
PROG
(PARI) minvl(n, v) = {vgt = select(x->(x>=n), v, 1); first = vgt[1]; vgtd = vector(#vgt-1, k, vgt[k+1] - vgt[k]); vgtdr = Vecrev(vgtd); vokdiff = select(x->x!=1, vgtdr, 1); if (#vokdiff, #v - vokdiff[1]+1, first); }
lista(nn) = {v = read("v002322.txt"); for (n=1, nn, print1(minvl(n, v), ", "); ); }
KEYWORD
nonn
AUTHOR
Michel Marcus, May 13 2018
EXTENSIONS
a(32) and beyond from Seiichi Manyama, May 24 2020
STATUS
approved