A264898 Numbers m such that A155043(n+1) = A155043(n).

1, 3, 8, 9, 15, 24, 25, 49, 63, 81, 85, 121, 195, 229, 255, 361, 440, 442, 446, 451, 483, 528, 676, 729, 841, 1091, 1295, 1443, 1681, 1935, 2026, 2115, 2401, 2409, 2613, 2703, 3363, 3481, 3721, 3729, 3843, 3981, 3985, 3986, 3987, 4005, 4107, 4624, 4760, 4768

Offset

1,2

Comments

A264893(a(n)) = 0.

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..500

Mathematica

Position[Differences@ Fold[Append[#1, 1 + #1[[#2 - DivisorSigma[0, #2] + 1]] ] &, {0}, Range[10^4]], 0][[All, 1]] - 1 (* Michael De Vlieger, Dec 09 2017 *)

Prog

(Haskell)
a264898 n = a264898_list !! (n-1)
a264898_list = filter ((== 0) . a264893) [0..]

Crossrefs

Cf. A264893, A155043.

Sequence in context: A101065 A152411 A080517 * A248194 A295289 A212849

Adjacent sequences: A264895 A264896 A264897 * A264899 A264900 A264901

Keyword

nonn

Author

Reinhard Zumkeller, Nov 27 2015

Status

approved