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 A076163 #17 Mar 22 2025 17:33:15 %S A076163 2,13,53,59,127,233,257,293,457,521,541,547,587,857,983,1151,1153, %T A076163 1429,1481,1489,1511,1553,1559,1579,1621,1753,1861,2099,2129,2143, %U A076163 2239,2273,2341,2347,2383,2411,2417,2459,2549,2657,2677,2729,2741 %N A076163 Primes p such that the absolute value of p minus the sum of squares of digits of p is also prime. %H A076163 Vincenzo Librandi, <a href="/A076163/b076163.txt">Table of n, a(n) for n = 1..1001</a> %e A076163 13 is OK because 13-(1^2+3^2)=3 is a prime. %t A076163 Select[Prime[Range[1,400]],PrimeQ[Abs[#-Total[IntegerDigits[#]^2]]]&] (* _Harvey P. Dale_, Mar 31 2012 *) %K A076163 nonn,base %O A076163 1,1 %A A076163 _Zak Seidov_, Nov 01 2002 %E A076163 Definition corrected, specifying that the absolute value must be used _Carmine Suriano_, Jul 19 2010 %E A076163 Missing a(1)=2 inserted by _Sean A. Irvine_, Mar 22 2025