login
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.
0
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
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
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, Jul 19 2011
STATUS
approved