|
%I #5 Feb 18 2019 02:09:23
%S 1,3,4,6,12,24,30,36,42,54,60,64,66,72,78,84,96,102,108,114,120,132,
%T 138,156,168,174,180,186,192,204,216,222,228,240,246,252,258,264,276,
%U 282,288,300,312,318,348,354,360,366,372,384,396,400,402,405,408,420,426
%N Numbers k >= 1 such that A000045(k)/A000005(k) is an integer.
%p A000045 := proc(n) combinat[fibonacci](n) ; end: A000005 := proc(n) numtheory[tau](n) ; end: for n from 1 to 580 do if A000045(n) mod A000005(n) = 0 then printf("%d,",n) ; fi; od: # _R. J. Mathar_, May 25 2009
%Y Cf. A000045, A000005.
%K easy,nonn
%O 1,2
%A _Ctibor O. Zizka_, May 23 2009
%E 71 removed and sequence extended by _R. J. Mathar_, May 25 2009
|
