OFFSET
1,1
EXAMPLE
6359 is in the sequence because (1) it is a prime that can be written as 22*(17^2)+1 and (2)the sum of its digits 6+3+5+9=23 can be written as 22*(1^2)+1
MATHEMATICA
t=1+22Range[2000]^2; Select[t, PrimeQ[ # ] && MemberQ[t, Total[IntegerDigits[ # ]]]&] (* T. D. Noe, Nov 15 2006 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), Apr 15 2006
EXTENSIONS
Corrected by T. D. Noe, Nov 15 2006
STATUS
approved