A343818 a(n) is the least number k such that k and k+1 both have n Fermi-Dirac factors (A064547).
2, 14, 104, 2079, 21735, 3341624, 103488384, 6110171144
Offset: 1
Examples
a(1) = 2 since A064547(2) = A064547(3) = 1. a(2) = 14 since A064547(14) = A064547(15) = 2.
Programs
-
Mathematica
fd[1] = 0; fd[n_] := Plus @@ DigitCount[FactorInteger[n][[;;,2]], 2, 1]; seq[m_] := Module[{s = Table[0, {m}], c = 0, n = 1, fd1, fd2}, fd1=fd[n]; While[c < m, fd2 = fd[++n]; If[fd1 == fd2 && fd1 <= m && s[[fd1]] == 0, s[[fd1]] = n-1; c++]; fd1=fd2]; s]; seq[5]
Comments