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.
%I A292248 #7 Sep 18 2017 09:23:55 %S A292248 1,2,2,4,5,4,4,8,9,10,11,8,8,8,8,16,17,18,18,20,21,22,22,16,17,16,16, %T A292248 16,17,16,17,32,32,34,34,36,36,36,37,40,41,42,42,44,45,44,44,32,33,34, %U A292248 34,32,32,32,33,32,33,34,35,32,33,34,34,64,64,64,64,68,69,68,69,72,73,72,72,72,72,74,74,80,81,82,82,84,85,84,84,88,89,90,91 %N A292248 a(n) = A292245(A048673(n)). %H A292248 Antti Karttunen, <a href="/A292248/b292248.txt">Table of n, a(n) for n = 1..8192</a> %F A292248 a(n) = A292245(A048673(n)). %F A292248 a(n) + A292247(n) = n. %t A292248 f[n_] := Times @@ Power[If[# == 1, 1, NextPrime[#, -1]] & /@ First@ #, Last@ #] &@ Transpose@ FactorInteger[2 n - 1]; g[n_] := (Times @@ Power[If[# == 1, 1, NextPrime@ #] & /@ First@ #, Last@ #] + 1)/2 &@ Transpose@ FactorInteger@ n; Map[FromDigits[#, 2] &[IntegerDigits[#, 3] /. 2 -> 0] &, Map[a, Array[g, 91]]] (* _Michael De Vlieger_, Sep 16 2017 *) %Y A292248 Cf. A048673, A292244, A292247. %K A292248 nonn %O A292248 1,2 %A A292248 _Antti Karttunen_, Sep 16 2017