%I #14 Jul 19 2024 09:21:42
%S 8,9,8,10,8,19,17,28,17,26,28,19,26,28,17,35,26,28,19,26,28,28,35,35,
%T 28,8,28,17,28,35,28,26,26,37,35,28,46,28,35,35,35,37,44,37,35,46,37,
%U 37,35,37,35,35,37,26,44,35,35,28,28,26,37,35,37,17,37,26
%N Sum of digits of the cubes of prime numbers.
%F a(n) = A007953(A030078(n)). - _R. J. Mathar_, Jul 19 2024
%p read("transforms") :
%p A235398 := proc(n)
%p digsum(ithprime(n)^3) ;
%p end proc:
%p seq(A235398(n),n=1..40) ; # _R. J. Mathar_, Jul 19 2024
%o (PARI) a(n) = sumdigits(prime(n)^3); \\ _Michel Marcus_, Jan 09 2014
%Y Cf. A004164, A007953, A123157.
%K nonn,base
%O 1,1
%A _Antonio GraciĆ” Llorente_, Jan 09 2014