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