%I #14 Jun 14 2021 16:07:21
%S 449,2141,2213,3137,4339,4349,4421,5701,9623,13093,14653,16447,16567,
%T 22901,27091,36061,41491,45403,45413,45433,50417,52691,54631,54941,
%U 55049,56963,57089,58943,60601,61043,61051,63607,65831,66301,67843,68543,72019,73421
%N 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.
%e 449 is the 87th prime and sum of the squares of digits of both is 113;
%e 56963 is the 5778th prime and sum of the squares of digits of both is 187.
%t Prime[Select[Range[10000], Apply[Plus, IntegerDigits[#]^2] == Apply[Plus, IntegerDigits[Prime[#]]^2] &]]
%Y Cf. A003132.
%K nonn,base
%O 1,1
%A _Michel Lagneau_, Jul 19 2011