A193255 - OEIS

%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