OFFSET
1,4
LINKS
FORMULA
a(n) = Sum_{d|n, d<n} A010056(d)*d.
G.f.: Sum_{k>=2} Fibonacci(k) * x^(2*Fibonacci(k)) / (1 - x^Fibonacci(k)). - Ilya Gutkovskiy, Apr 14 2021
EXAMPLE
For n = 55, its proper divisors are [1, 5, 11], of which only 1 and 5 are in A000045, thus a(55) = 1 + 5 = 6.
For n = 10946, its proper divisors are [1, 2, 13, 26, 421, 842, 5473], and only 1, 2 and 13 are Fibonacci numbers, thus a(10946) = 1 + 2 + 13 = 16.
MATHEMATICA
With[{s = Fibonacci@ Range[2, 40]}, Table[DivisorSum[n, # &, And[MemberQ[s, #], # != n] &], {n, 105}]] (* Michael De Vlieger, Oct 09 2017 *)
PROG
(PARI)
A010056(n) = { my(k=n^2); k+=(k+1)<<2; (issquare(k) || (n>0 && issquare(k-8))) }; \\ This function from Charles R Greathouse IV, Jul 30 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 09 2017
STATUS
approved