|
%I #14 Apr 17 2022 08:21:19
%S 2084564,11784194,13667268,52820326,68397891,101183694,128247668,
%T 135641787,137681487,170542955,266319572,284966486,384109196,
%U 386860419,482419526,483785771,546800667,579468939,606809224,622241109,703636544,737703005,829965829,830993564,834224684,973986250
%N Numbers k such that the elements of the continued fraction of the abundancy index of k and k+1 are anagrams of each other.
%H Amiram Eldar, <a href="/A353346/b353346.txt">Table of n, a(n) for n = 1..108</a>
%e 2084564 is a term since the sequences of elements of the continued fractions of sigma(2084564)/2084564 = 941472/521141 and sigma(2084565)/2084565 = 1270656/694855, {1, 1, 4, 5, 1, 8, 1, 5, 2, 4, 1, 7, 3} and {1, 1, 4, 1, 5, 8, 1, 2, 4, 7, 3, 1, 5} respectively, are anagrams of each other.
%t ab[n_] := Sort[ContinuedFraction[DivisorSigma[-1, n]]]; seq[max_] := Module[{s = {}, n = 2, c = 0, ab1 = ab[1], ab2}, While[n < max, ab2 = ab[n]; If[ab1 == ab2, AppendTo[s, n - 1]]; ab1 = ab2; n++]; s]; seq[1.4*10^7]
%Y Cf. A000203 (sigma), A069567, A017665, A017666, A349685, A353345, A353347.
%K nonn
%O 1,1
%A _Amiram Eldar_, Apr 15 2022
|
