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 A079432 #9 Mar 26 2025 08:30:40
%S A079432 4,8,9,16,20,12,28,32,15,25,44,18,52,49,21,64,68,24,76,35,27,88,92,30,
%T A079432 40,104,33,56,116,36,124,128,39,136,50,42,148,152,45,55,164,48,172,
%U A079432 121,51,184,188,54,77,65,57,169,212,60,70,91,63,232,236,66,244,248,69,256
%N A079432 a(n) = A079431(A079431(n)).
%H A079432 Amiram Eldar, <a href="/A079432/b079432.txt">Table of n, a(n) for n = 1..10000</a>
%F A079432 A078701(a(n)) = A078701(A079431(n)) = A078701(n).
%t A079432 f[n_] := FactorInteger[n/2^IntegerExponent[n, 2]][[1, 1]]; A079431[n_] := Module[{p = f[n], m}, m = n+p; While[f[m] != p, m+=p]; m]; a[n_] := A079431[A079431[n]]; Array[a, 100] (* _Amiram Eldar_, Mar 26 2025 *)
%Y A079432 Cf. A078701, A079431.
%K A079432 nonn
%O A079432 1,1
%A A079432 _Reinhard Zumkeller_, Jan 09 2003