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 A253889 #14 Sep 17 2017 22:53:06 %S A253889 1,1,1,2,2,3,4,3,8,14,4,13,5,5,7,17,6,6,18,7,38,32,8,28,23,9,15,11,10, %T A253889 26,16,11,41,53,12,33,39,13,10,113,14,43,12,15,22,63,16,25,59,17,203, %U A253889 74,18,48,30,19,188,50,20,122,68,21,9,149,22,138,83,23,60,86,24,35,29,25,73,62,26,24,123,27,27,128,28,313 %N A253889 a(n) = A048673(floor(A064216(n)/2)). %C A253889 When A048673 is represented as a binary tree, then any non-root node k (>= 2) which contains value n = A048673(k) has as its parent a(n) = A048673(floor(k/2)). %H A253889 Antti Karttunen, <a href="/A253889/b253889.txt">Table of n, a(n) for n = 1..8192</a> %F A253889 a(n) = A048673(floor(A064216(n)/2)). %F A253889 Other identities. For all n >= 0: %F A253889 a(3n+2) = n+1. %t A253889 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; Array[Floor@ g[Floor[f[#]/2]] &, 84] (* _Michael De Vlieger_, Sep 16 2017 *) %o A253889 (Scheme) (define (A253889 n) (A048673 (floor->exact (/ (A064216 n) 2)))) %Y A253889 Cf. A048673, A064216, A253888, A253893. %K A253889 nonn %O A253889 1,4 %A A253889 _Antti Karttunen_, Jan 22 2015