%I #5 Apr 26 2020 09:23:23
%S 9,3,9,6,9,9,12,3,6,9,7,8,9,12,9,10,15,18,3,9,11,6,12,13,9,14,15,9,10,
%T 12,21,6,11,9,12,15,13,7,12,14,9,15,18,16,9,17,15,18,9,10,12,18,18,21,
%U 9,11,12,18,24,15,18,27,3,8,9,10,15,18,3,7,9,12,16
%N a(n) is the sum of digits of the n-th Moran number (A001101).
%F a(n) = A007953(A001101(n)).
%e For n = 42:
%e - A001101(42) = 555,
%e - A007953(555) = 15,
%e - hence a(42) = 15.
%o (PARI) for (n=1, 1168, if (n%(s=sumdigits(n))==0 && isprime(n/s), print1 (s", ")))
%Y Cf. A001101, A007953, A334375.
%K nonn,base
%O 1,1
%A _Rémy Sigrist_, Apr 25 2020
|