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 A067976 #12 Jan 16 2024 18:32:46
%S A067976 2,3,17,37,
%T A067976 2708192040014184559945134363758220403329915059847434832829218817
%N A067976 Primes of the form 1 + k^phi(k).
%C A067976 The next term, if it exists, has k > 3000. - _Sean A. Irvine_, Jan 16 2024
%t A067976 Do[s=1+n^(EulerPhi[n]); If[PrimeQ[s], Print[s]], {n, 1, 1000}]
%t A067976 Select[Table[1+n^EulerPhi[n],{n,100}],PrimeQ] (* _Harvey P. Dale_, Jul 08 2017 *)
%Y A067976 Cf. A066719, A000010.
%K A067976 more,nonn
%O A067976 1,1
%A A067976 _Labos Elemer_, Feb 06 2002
%E A067976 Corrected by Hauke Worpel (hw1(AT)email.com), May 29 2003