cp's OEIS Frontend

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.

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.

This page as a plain text file.
%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