cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A316210 Number of integer partitions of the n-th Fermi-Dirac prime into Fermi-Dirac primes.

This page as a plain text file.
%I A316210 #7 Jun 27 2018 07:07:34
%S A316210 1,1,2,2,4,7,11,17,31,37,54,109,152,283,380,878,1482,1906,3101,3924,
%T A316210 6197,11915,14703,27063,40016,48450,84633,101419,121250,204461,398916,
%U A316210 551093,646073,883626,1030952,1397083,2522506,3875455,5128718,7741307,8860676
%N A316210 Number of integer partitions of the n-th Fermi-Dirac prime into Fermi-Dirac primes.
%C A316210 A Fermi-Dirac prime (A050376) is a number of the form p^(2^k) where p is prime and k >= 0.
%e A316210 The a(6) = 7 partitions of 9 into Fermi-Dirac primes are (9), (54), (72), (333), (432), (522), (3222).
%t A316210 nn=60;
%t A316210 FDpQ[n_]:=With[{f=FactorInteger[n]},n>1&&Length[f]==1&&MatchQ[FactorInteger[2f[[1,2]]],{{2,_}}]]
%t A316210 FDprimeList=Select[Range[nn],FDpQ];
%t A316210 ser=Product[1/(1-x^d),{d,FDprimeList}];
%t A316210 Table[SeriesCoefficient[ser,{x,0,FDprimeList[[n]]}],{n,Length[FDprimeList]}]
%Y A316210 Cf. A000586, A000607, A050376, A064547, A213925, A279065, A299755, A299757, A305829, A316202, A316211, A316220.
%K A316210 nonn
%O A316210 1,3
%A A316210 _Gus Wiseman_, Jun 26 2018