# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a346091
Showing 1-1 of 1

%I A346091 #16 Apr 04 2022 15:26:10
%S A346091 2,3,5,3,7,5,11,15,35,7,13,5,17,11,7,15,19,35,23,7,11,13,29,35,77,17,
%T A346091 55,11,31,77,37,21,13,19,143,35,41,23,17,77,43,143,47,13,77,29,53,35,
%U A346091 2431,77,19,17,59,55,221,11,23,31,61,77,67,37,143,21,323,13,71,19,29,143,73,385,79,41,1001,23,221,17,83,77,385
%N A346091 a(n) = A328571(A108951(n)).
%C A346091 All terms are squarefree (in A005117). - _Antti Karttunen_, Apr 03 2022
%H A346091 Antti Karttunen, <a href="/A346091/b346091.txt">Table of n, a(n) for n = 1..10201</a>
%H A346091 <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>
%H A346091 <a href="/index/Pri#primorial_numbers">Index entries for sequences related to primorial numbers</a>
%F A346091 a(n) = A328571(A108951(n)) = A007947(A276086(A108951(n))).
%F A346091 a(n) = A324886(n) / A344592(n).
%F A346091 For all n >= 1, a(A000040(n)) = A000040(1+n).
%o A346091 (PARI)
%o A346091 A002110(n) = prod(i=1,n,prime(i));
%o A346091 A108951(n) = { my(f=factor(n)); prod(i=1, #f~, A002110(primepi(f[i, 1]))^f[i, 2]) };
%o A346091 A328571(n) = { my(m=1, p=2); while(n, m *= (p^!!(n%p)); n = n\p; p = nextprime(1+p)); (m); };
%o A346091 A346091(n) = A328571(A108951(n));
%Y A346091 Cf. A000040, A002110, A005117, A007947, A108951, A276086, A324886, A328571, A344592, A346093 [= A276085(a(n))], A351955 (rgs-transform).
%K A346091 nonn
%O A346091 1,1
%A A346091 _Antti Karttunen_, Jul 09 2021

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE