OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
FORMULA
EXAMPLE
887 is in the sequence because 887^2=786769 and 7+8+6+7+6+9=43.
1723 is in the sequence because 1723^2=2968729 and 2+9+6+8+7+2+9=43.
MATHEMATICA
Select[Prime[Range[300]], Total[IntegerDigits[#^2]] == 43&] (* Vincenzo Librandi, Sep 12 2013 *)
PROG
(Magma) [p: p in PrimesUpTo(6150) | &+Intseq(p^2) eq 43]; // Vincenzo Librandi, Sep 12 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vincenzo Librandi, Sep 21 2009
EXTENSIONS
More terms from R. J. Mathar, Sep 29 2009
STATUS
approved