The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A226803 Primes p where the digital sum of p^2 is equal to 7. 4
 5, 149, 1049 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS No more terms below 10^9. - Michel Marcus, Nov 02 2013 No more terms below 10^20. - Hiroaki Yamanouchi, Sep 23 2014 Sequence is complete, because A215614 is complete. - Robert Israel, Sep 23 2014 LINKS EXAMPLE 5 is in the sequence because 5^2 = 25 and 2 + 5 = 7. 149 is in the sequence because 149^2 = 22201 and 2 + 2 + 2 + 0 + 1 = 7. MATHEMATICA Select[Prime[Range[10000]], Total[IntegerDigits[#^2]] == 7 &] PROG (MAGMA) [p: p in PrimesUpTo(6*10^6) | &+Intseq(p^2) eq 7]; (PARI) lista(nn) = {forprime(p=2, nn, if (sumdigits(p^2)==7, print1(p, ", ")); ); } \\ Michel Marcus, Nov 02 2013 CROSSREFS Cf. A226802, A165492, A165459, A165493, A215614. Sequence in context: A281427 A294360 A075186 * A332716 A230666 A113560 Adjacent sequences:  A226800 A226801 A226802 * A226804 A226805 A226806 KEYWORD nonn,base,bref,fini,full AUTHOR Vincenzo Librandi, Jun 24 2013 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified May 18 10:19 EDT 2021. Contains 343995 sequences. (Running on oeis4.)