|
%I #5 May 17 2017 18:00:24
%S 1,0,1,1,1,3,2,6,6,10,16,20,35,45,72,103,150,228,324,491,710,1053,
%T 1552,2272,3369,4930,7288,10711,15771,23244,34175,50382,74113,109168,
%U 160722,236596,348446,512894,755303,1111946,1637205,2410592,3549023,5225659,7693623,11327912
%N Number of compositions (ordered partitions) of n into decimal palindromic primes (A002385).
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PalindromicPrime.html">Palindromic Prime</a>
%H <a href="/index/Pac#palindromes">Index entries for sequences related to palindromes</a>
%H <a href="/index/Com#comp">Index entries for sequences related to compositions</a>
%F G.f.: 1/(1 - Sum_{k>=1} x^A002385(k)).
%e a(7) = 6 because we have [7], [5, 2], [3, 2, 2], [2, 5], [2, 3, 2] and [2, 2, 3].
%t nmax = 45; CoefficientList[Series[1/(1 - Sum[Boole[PalindromeQ[k] && PrimeQ[k]] x^k, {k, 1, nmax}]), {x, 0, nmax}], x]
%Y Cf. A002385, A023360, A282584.
%K nonn,base
%O 0,6
%A _Ilya Gutkovskiy_, May 17 2017
|
