A193255 Primes prime(k) such that the sum of the squares of digits of prime(k) equals the sum of the squares of digits of k.

449, 2141, 2213, 3137, 4339, 4349, 4421, 5701, 9623, 13093, 14653, 16447, 16567, 22901, 27091, 36061, 41491, 45403, 45413, 45433, 50417, 52691, 54631, 54941, 55049, 56963, 57089, 58943, 60601, 61043, 61051, 63607, 65831, 66301, 67843, 68543, 72019, 73421

Offset

1,1

Links

Table of n, a(n) for n=1..38.

Example

449 is the 87th prime and sum of the squares of digits of both is 113;
56963 is the 5778th prime and sum of the squares of digits of both is 187.

Mathematica

Prime[Select[Range[10000], Apply[Plus, IntegerDigits[#]^2] == Apply[Plus, IntegerDigits[Prime[#]]^2]  &]]

Crossrefs

Cf. A003132.

Sequence in context: A243402 A135073 A160291 * A283791 A036945 A201182

Adjacent sequences: A193252 A193253 A193254 * A193256 A193257 A193258

Keyword

nonn,base

Author

Michel Lagneau, Jul 19 2011

Status

approved