OFFSET
1,1
LINKS
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
KEYWORD
nonn,base
AUTHOR
Herman Jamke (hermanjamke(AT)fastmail.fm), Oct 01 2006
STATUS
approved