login
A356164
a(n) is the smallest positive k such that n divides k*A003961(k), where A003961 is fully multiplicative with a(p) = nextprime(p).
9
1, 2, 2, 4, 3, 2, 5, 8, 4, 6, 7, 4, 11, 10, 3, 16, 13, 4, 17, 12, 10, 14, 19, 8, 9, 22, 8, 20, 23, 6, 29, 32, 14, 26, 5, 4, 31, 34, 22, 24, 37, 10, 41, 28, 6, 38, 43, 16, 25, 18, 26, 44, 47, 8, 21, 40, 34, 46, 53, 12, 59, 58, 20, 64, 33, 14, 61, 52, 38, 10, 67, 8, 71, 62, 9, 68, 7, 22, 73, 48, 16, 74, 79, 20, 39, 82
OFFSET
1,2
COMMENTS
a(n) is the smallest positive k such that A191002(k) is a multiple of n.
FORMULA
a(n) = n - A356165(n).
For n >= 2, a(A000040(n)) = A000040(n-1).
PROG
(PARI)
A003961(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); };
A356164(n) = for(k=1, oo, if((k*A003961(k))%n==0, return(k)));
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 28 2022
STATUS
approved