OFFSET
1,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..5000
Project Euler, Problem 533 - Minimum values of the Carmichael function
Wikipedia, Carmichael function
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), ", "); ); }
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Marcus, May 13 2018
EXTENSIONS
a(32) and beyond from Seiichi Manyama, May 24 2020
STATUS
approved