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 A102328 #15 Jun 21 2024 06:38:28
%S A102328 30977,69127,104681,109807,114671,141637,146057,160319,160639,170371,
%T A102328 171169,176087,211723,216119,217081,319321,381673,389083,390151,
%U A102328 416219,437401,484609,492257,525571,564713,565241,574127,591601,612173,621259
%N A102328 Primes p such that the largest prime divisor of p^6 + 1 is less than p.
%H A102328 Amiram Eldar, <a href="/A102328/b102328.txt">Table of n, a(n) for n = 1..1000</a>
%F A102328 Solutions to {A006530(p^6+1) < p} where p is a prime number.
%e A102328 p = 30977, p^6 + 1 = 883560179055825771003237890 = 2*5*13*37*61*113*181*13921*18517*22189*25741, so the largest prime factor is 25741 < p = 30977.
%t A102328 Select[Prime[Range[60000]], Max[PrimeFactorList[1 + #^6]] < # &] (* _Ray Chandler_, Jan 08 2005 *)
%o A102328 (PARI) is(k) = isprime(k) && vecmax(factor(k^6+1)[, 1]) < k; \\ _Amiram Eldar_, Jun 21 2024
%Y A102328 Cf. A000040, A006530, A065091, A073501, A102327.
%K A102328 nonn
%O A102328 1,1
%A A102328 _Labos Elemer_, Jan 05 2005
%E A102328 Extended by _Ray Chandler_, Jan 08 2005