OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
FORMULA
EXAMPLE
433 is in the sequence because 433^2=187489 and 1+8+7+4+8+9=37.
1783 is in the sequence because 1783^2=3179089 and 3+1+7+9+0+8+9=37.
MATHEMATICA
Select[Prime[Range[500]], Total[IntegerDigits[#^2]]== 37&] (* Vincenzo Librandi, Sep 12 2013 *)
PROG
(Magma) [p: p in PrimesUpTo(6150) | &+Intseq(p^2) eq 37]; // 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