login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

a(n) = smallest positive k such that n divides k*A276086(k), where A276086 is primorial base exp-function.
9

%I #13 Jul 28 2022 15:15:22

%S 1,1,2,4,5,2,7,8,3,5,11,4,13,7,5,16,17,3,19,8,14,11,23,8,10,13,9,28,

%T 29,5,31,32,11,17,7,4,37,19,26,8,41,14,43,44,5,23,47,16,35,10,17,52,

%U 53,9,11,32,38,29,59,8,61,31,21,64,13,11,67,68,23,7,71,16,73,37,10,76,33,26,79,16,27,41,83,28,17,43

%N a(n) = smallest positive k such that n divides k*A276086(k), where A276086 is primorial base exp-function.

%C a(n) is the smallest positive k such that A324580(k) is a multiple of n.

%H Antti Karttunen, <a href="/A355944/b355944.txt">Table of n, a(n) for n = 1..65537</a>

%H <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>

%F a(n) = n - A355945(n).

%o (PARI)

%o A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };

%o A355944(n) = for(k=1, oo, if((k*A276086(k))%n==0, return(k)));

%Y Cf. A276086, A324539, A324540, A324541, A324580, A355945, A356151, A356152, A356153, A356160 (fixed points, where a(n)=n), A356161.

%Y Cf. also A344005, A356164.

%K nonn,look

%O 1,3

%A _Antti Karttunen_, Jul 27 2022