A076163 Primes p such that absolute values of p minus sum of squares of digits of p is also prime.

13, 53, 59, 127, 233, 257, 293, 457, 521, 541, 547, 587, 857, 983, 1151, 1153, 1429, 1481, 1489, 1511, 1553, 1559, 1579, 1621, 1753, 1861, 2099, 2129, 2143, 2239, 2273, 2341, 2347, 2383, 2411, 2417, 2459, 2549, 2657, 2677, 2729, 2741

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Example

13 is OK because 13-(1^2+3^2)=3 is a prime.

Mathematica

Select[Prime[Range[2, 400]], PrimeQ[Abs[#-Total[IntegerDigits[#]^2]]]&] (* Harvey P. Dale, Mar 31 2012 *)

Crossrefs

Sequence in context: A047903 A197790 A317467 * A207977 A056255 A141885

Adjacent sequences: A076160 A076161 A076162 * A076164 A076165 A076166

Keyword

nonn,base

Author

Zak Seidov, Nov 01 2002

Extensions

Definition corrected, specifying that the absolute value must be used Carmine Suriano, Jul 19 2010

Status

approved