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.

A319825 LCM of the strict integer partition with FDH number n.

This page as a plain text file.
%I A319825 #5 Sep 29 2018 12:57:42
%S A319825 0,1,2,3,4,2,5,3,6,4,7,6,8,5,4,9,10,6,11,12,10,7,12,6,13,8,6,15,14,4,
%T A319825 15,9,14,10,20,6,16,11,8,12,17,10,18,21,12,12,19,18,20,13,10,24,21,6,
%U A319825 28,15,22,14,22,12,23,15,30,9,8,14,24,30,12,20,25,6,26
%N A319825 LCM of the strict integer partition with FDH number n.
%C A319825 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 A319825 45 is the FDH number of (6,4), which has LCM 12, so a(45) = 12.
%t A319825 nn=200;
%t A319825 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 A319825 FDprimeList=Array[FDfactor,nn,1,Union];FDrules=MapIndexed[(#1->#2[[1]])&,FDprimeList];
%t A319825 LCM@@@Table[Reverse[FDfactor[n]/.FDrules],{n,2,nn}]
%Y A319825 Cf. A050376, A056239, A064547, A213925, A289508, A289509, A290103, A299755, A299757, A319826.
%K A319825 nonn
%O A319825 1,3
%A A319825 _Gus Wiseman_, Sep 28 2018