

A123157


Sum of digits of the squares of prime numbers.


12



4, 9, 7, 13, 4, 16, 19, 10, 16, 13, 16, 19, 16, 22, 13, 19, 16, 13, 25, 10, 19, 13, 31, 19, 22, 4, 16, 19, 19, 25, 19, 16, 31, 16, 7, 13, 25, 28, 34, 31, 10, 19, 22, 25, 28, 19, 16, 31, 22, 16, 28, 16, 22, 10, 25, 31, 19, 19, 31, 31, 25, 34, 28, 25, 40, 22, 22, 25, 16, 13, 22, 28
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

Table of n, a(n) for n=1..72.
Albert Frank, International Contest Of Logical Sequences, 2002  2003. Item 11
Albert Frank, Solutions of International Contest Of Logical Sequences, 2002  2003.


MAPLE

read("transforms"):
A123157 := proc(n)
digsum(ithprime(n)^2) ;
end proc: # R. J. Mathar, Jul 05 2013


MATHEMATICA

Total[IntegerDigits[#]]&/@(Prime[Range[80]]^2) (* Harvey P. Dale, Nov 04 2012 *)


PROG

(PARI) for(n=1, 100, dp2=eval(Vec(Str(prime(n)^2))); print1(sum(i=1, length(dp2), dp2[i]), ", "))


CROSSREFS

Sequence in context: A155787 A338304 A179222 * A154684 A256174 A096982
Adjacent sequences: A123154 A123155 A123156 * A123158 A123159 A123160


KEYWORD

nonn,base


AUTHOR

Herman Jamke (hermanjamke(AT)fastmail.fm), Oct 01 2006


STATUS

approved



