A160686 Numbers n such that n/A000005(A000045(n)) is an integer.
1, 2, 4, 8, 16, 32, 64
Offset: 1
Programs
-
Maple
with(combinat):with(numtheory): A160686 := proc(n) option remember: local k: if(n=1)then return 1:fi: for k from procname(n-1)+1 do if(k mod tau(fibonacci(k))=0)then return k:fi: od: end: seq(A160686(n),n=1..7); # Nathaniel Johnston, May 08 2011
Formula
{n: A063375(n) | n}. - R. J. Mathar, May 25 2009
Extensions
Inverted division in the definition - R. J. Mathar, May 25 2009
Erroneous term a(5) = 12 removed by Nathaniel Johnston, May 08 2011
Comments