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 A082814 #23 Oct 28 2018 03:30:25 %S A082814 12,88,207 %N A082814 Values of m associated with A082813. %C A082814 No more terms below 822. - _W. Edwin Clark_, May 24 2003 %C A082814 No more terms below 4000. - _Hugo Pfoertner_, May 28 2003 %C A082814 No more terms < 25500. - _Martin Renner_, Jan 31 2013 %H A082814 Hugo Pfoertner, <a href="http://www.randomwalk.de/sequences/a082813.zip">Search for further terms</a> %p A082814 A:=[]: %p A082814 for n from 4 to 210 do %p A082814 if not(isprime(n)) then %p A082814 F:=ifactors(n)[2]; %p A082814 if nops(F)>1 then %p A082814 s:=sum(F['i'][2]*F['i'][1]^n,'i'=1..nops(F)); %p A082814 if isprime(s) then A:=[op(A),n]; print(n): fi; %p A082814 fi: %p A082814 fi: %p A082814 od: # _Martin Renner_, Jan 31 2013 %o A082814 (PARI) for(m=1,+oo,f=factor(m);ispseudoprime(sum(i=1,matsize(f)[1],f[i,1]^m*f[i,2])) && print1(m,", ")) \\ _Jeppe Stig Nielsen_, Oct 27 2018 %Y A082814 Cf. A082813. %K A082814 nonn,bref,more,hard %O A082814 1,1 %A A082814 _N. J. A. Sloane_, May 24 2003 %E A082814 a(2) and a(3) from _Joshua Zucker_, May 24 2003