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 A104372 #12 Apr 09 2024 08:09:24
%S A104372 2,3,7,13,61,181,2521,7561,415801,1247401,1099944846001,
%T A104372 146100174169950001,1156675078903494150001,
%U A104372 750321420485151941966263672363958662088980270355720625000001
%N A104372 Primes of the form A104350(k) + 1.
%H A104372 Amiram Eldar, <a href="/A104372/b104372.txt">Table of n, a(n) for n = 1..16</a>
%t A104372 Select[FoldList[Times, Array[FactorInteger[#][[-1, 1]] &, 100]] + 1, PrimeQ] (* _Amiram Eldar_, Apr 08 2024 *)
%o A104372 (PARI) gpf(n) = {my(p = factor(n)[, 1]); if(n == 1, 1, p[#p]);}
%o A104372 lista(nmax) = {my(r = 1); for(k = 1, nmax, r * = gpf(k); if(isprime(r+1), print1(r+1, ", ")));} \\ _Amiram Eldar_, Apr 08 2024
%Y A104372 Intersection of A104365 and A000040.
%Y A104372 Cf. A104364, A104373, A088332, A018239.
%K A104372 nonn
%O A104372 1,1
%A A104372 _Reinhard Zumkeller_, Mar 06 2005
%E A104372 a(14) from _Amiram Eldar_, Apr 09 2024