This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A356160 #6 Jul 28 2022 09:19:58 %S A356160 1,4,5,7,8,11,13,16,17,19,23,28,29,31,32,37,41,43,44,47,52,53,59,61, %T A356160 64,67,68,71,73,76,79,83,88,89,92,97,101,103,104,107,108,109,113,116, %U A356160 121,124,127,128,131,136,137,139,143,148,149,151,152,155,157,163,164,167,169,172,173,176,179,181,184,187,188,191 %N A356160 Numbers k such that the smallest positive k such that n divides k*A276086(k) is equal to n, where A276086 is primorial base exp-function. %C A356160 Not a subsequence of A324583. The first five terms that occur here, but not there are: 2327, 2353, 2392, 2444, 2483. %H A356160 <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a> %o A356160 (PARI) %o A356160 A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); }; %o A356160 A356161(n) = for(k=1, oo, if((k*A276086(k))%n==0, return(n==k))); %o A356160 isA356160(n) = A356161(n); %Y A356160 Fixed points of A355944, positions of zeros in of A355945. %Y A356160 Cf. A276086, A324580, A324583, A356161 (characteristic function). %K A356160 nonn %O A356160 1,2 %A A356160 _Antti Karttunen_, Jul 28 2022