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 A258436 #9 Jul 17 2015 15:04:10
%S A258436 157,1069,61837,190573,840109,1950349,2485453,20616397,38844349,
%T A258436 57648589,133091053,144685357,188582029,222029869,276773389,346282477,
%U A258436 399067213,472656589,827175949,929558797,1137622957,1352220109,1369037389
%N A258436 Primes p of form x^2 - phi(x) such that (p-1)/tau(p-1) is also prime.
%C A258436 Intersection of A252021 and A258435.
%t A258436 lst = Table[n^2 - EulerPhi[n], {n, 100000}]; Select[lst, PrimeQ[#] && PrimeQ[ ( # - 1)/DivisorSigma[0, # - 1] ] &]
%o A258436 (PARI) lista(nn) = {for (n=1, nn, if (isprime(p=n^2-eulerphi(n)) && (pp=p-1) && (type(r=pp/numdiv(pp))=="t_INT") && isprime(r), print1(p, ", ")););} \\ _Michel Marcus_, Jul 08 2015
%Y A258436 Cf. A252021, A258435.
%K A258436 nonn,easy
%O A258436 1,1
%A A258436 _Carlos Eduardo Olivieri_, May 30 2015