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.

A316094 FDH numbers of strict integer partitions with odd parts.

This page as a plain text file.
%I A316094 #5 Jun 25 2018 22:51:31
%S A316094 1,2,4,7,8,11,14,16,19,22,25,28,31,32,38,41,44,47,50,53,56,61,62,64,
%T A316094 71,76,77,79,82,83,88,94,97,100,101,103,106,107,109,112,113,121,122,
%U A316094 124,127,128,131,133,137,139,142,149,151,152,154,157,158,163,164,166
%N A316094 FDH numbers of strict integer partitions with odd parts.
%C A316094 Also numbers n such that A305829(n) is odd.
%C A316094 Let f(n) = A050376(n) be the n-th Fermi-Dirac prime. The FDH number of a strict integer partition (y_1,...,y_k) is f(y_1)*...*f(y_k).
%e A316094 Sequence of all integer partitions with distinct odd parts begins (), (1), (3), (5), (3,1), (7), (5,1), (9), (11), (7,1), (13), (5,3), (15), (9,1), (11,1), (17), (7,3), (19), (13,1), (21), (5,3,1), (23), (15,1), (9,3), (25), (11,3), (7,5), (27), (17,1), (29), (7,3,1), (19,1), (31).
%t A316094 nn=100;
%t A316094 FDfactor[n_]:=If[n==1,{},Sort[Join@@Cases[FactorInteger[n],{p_,k_}:>Power[p,Cases[Position[IntegerDigits[k,2]//Reverse,1],{m_}->2^(m-1)]]]]];
%t A316094 FDprimeList=Array[FDfactor,nn,1,Union];FDrules=MapIndexed[(#1->#2[[1]])&,FDprimeList];
%t A316094 Select[Range[nn],OddQ[Times@@(FDfactor[#]/.FDrules)]&]
%Y A316094 Cf. A000700, A050376, A064547, A213925, A258116, A279065, A299755, A299757, A305829.
%K A316094 nonn
%O A316094 1,2
%A A316094 _Gus Wiseman_, Jun 24 2018