A057533 Values of n for which iteration of Chowla's function loops.

48, 75, 92, 140, 146, 176, 195, 215, 255, 267, 287, 312, 332, 369, 386, 407, 411, 519, 527, 551, 627, 734, 744, 818, 972, 973, 984, 1027, 1050, 1078, 1096, 1149, 1175, 1185, 1387, 1408, 1472, 1474, 1535, 1575, 1648, 1651, 1784, 1792, 1880, 1888, 1891

Offset: 1

Author

Asher Auel, Sep 03 2000

Keywords

• nonn

Comments

Chowla's function (A048050) = sum of divisors of n except 1 and n.

Links

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

Crossrefs

Cf. A048050.

Cf. A005276 (subsequence). - Reinhard Zumkeller, Feb 09 2013

Programs

Haskell

a057533 n = a057533_list !! (n-1)
a057533_list = filter (\z -> p z [z]) [1..] where
   p x ts = y > 0 && (y `elem` ts || p y (y:ts)) where y = a048050 x
-- Reinhard Zumkeller, Feb 09 2013