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 A071350 #27 May 26 2021 02:51:12 %S A071350 1,2,6,30,330,2310,53130,690690,20030010,821230410,13960916970, %T A071350 739928599410,27377358178170,2272320728788110,97709791337888730, %U A071350 8696171429072096970,165227257152369842430,18670680058217792194590 %N A071350 Distinct values of A058250; these terms appear first at subscripts listed in A071349. %H A071350 Michael De Vlieger, <a href="/A071350/b071350.txt">Table of n, a(n) for n = 1..341</a> %F A071350 a(n) = a(n-1) * A112037(n), n >= 2. - _David A. Corneth_, Apr 27 2021 %t A071350 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 A071350 (PARI) f(n) = my(pr=prod(k=1, n, prime(k))); gcd(pr, eulerphi(pr)); \\ A058250 %o A071350 lista(nn) = Set(vector(nn, k, f(k))); \\ _Michel Marcus_, Apr 27 2021 %Y A071350 Cf. A058250, A002110, A000010, A005867, A071349, A112037. %K A071350 nonn,easy %O A071350 1,2 %A A071350 _Labos Elemer_, May 21 2002