The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #27 May 26 2021 02:51:12
%S 1,2,6,30,330,2310,53130,690690,20030010,821230410,13960916970,
%T 739928599410,27377358178170,2272320728788110,97709791337888730,
%U 8696171429072096970,165227257152369842430,18670680058217792194590
%N Distinct values of A058250; these terms appear first at subscripts listed in A071349.
%H Michael De Vlieger, <a href="/A071350/b071350.txt">Table of n, a(n) for n = 1..341</a>
%F a(n) = a(n-1) * A112037(n), n >= 2. - _David A. Corneth_, Apr 27 2021
%t Prepend[FoldList[Times,DeleteDuplicates[Rest[Flatten[FactorInteger[#][[All, 1]]&/@(Prime[Range[100]]-1)]]]],1] (* _Jamie Morken_, Apr 27 2021 after _Harvey P. Dale_ at A112037, May 26 2019 *)
%o (PARI) f(n) = my(pr=prod(k=1, n, prime(k))); gcd(pr, eulerphi(pr)); \\ A058250
%o lista(nn) = Set(vector(nn, k, f(k))); \\ _Michel Marcus_, Apr 27 2021
%Y Cf. A058250, A002110, A000010, A005867, A071349, A112037.
%K nonn,easy
%O 1,2
%A _Labos Elemer_, May 21 2002