|
%I #12 Apr 28 2018 03:14:05
%S 1,2,3,4,5,6,7,10,12,16,20,21,35,56,78,84,97,125,138,184,189,300,418,
%T 437,550
%N Numbers n such that A004090(n)/A060384(n) is an integer.
%C No further terms between 550 and 12000. [_R. J. Mathar_, Sep 27 2009]
%C No further terms up to 50000. - _Michel Marcus_, Apr 28 2018
%o (PARI) isok(n) = my(f=fibonacci(n), d=digits(f)); !(vecsum(d) % #d); \\ _Michel Marcus_, Apr 28 2018
%Y Cf. A004090, A060384.
%K nonn,base,more
%O 1,2
%A _Ctibor O. Zizka_, Sep 01 2009
%E 14 more terms from _R. J. Mathar_, Sep 27 2009
|
