|
%I #10 Nov 29 2019 15:08:03
%S 1,2,3,5,8,13,55,144,987,6765,10946,9227465,225851433717,
%T 8944394323791464,160500643816367088,83621143489848422977,
%U 59425114757512643212875125,30960598847965113057878492344,127127879743834334146972278486287885163
%N Fibonacci numbers with arithmetic mean of digits an integer (sum of digits = a multiple of number of digits).
%F a(n) = A000045(A164947(n+1)).
%e 55 is a term as the arithmetic mean of digits is an integer: (5+5)/2 = 5.
%e 144 is a term as the arithmetic mean of digits is an integer: (1+4+4)/3 = 3.
%e 6765 is a term as the arithmetic mean of digits is an integer: (6+7+6+5)/4 = 6.
%t <<Statistics`DescriptiveStatistics`
%t Fibonacci[Flatten[Position[Table[Mean[IntegerDigits[Fibonacci[n]]], {n,1,100}],_Integer]]]
%Y Cf. A000045, A004090, A060384, A069709, A164947.
%K nonn,base
%O 1,2
%A _José de Jesús Camacho Medina_, Nov 07 2019
|
