login
Arithmetic derivatives of the Motzkin numbers.
0

%I #18 Oct 17 2016 16:37:56

%S 0,0,1,4,6,10,20,1,36,172,2192,3371,1,22327,135561,517656,284492,

%T 933118,5446991,24265724,18238138,93800069,334654476,1368408363,

%U 2584589232,1823879615,25669818480,41583822879,1967330543,29409700520,1265785403,3239855363874

%N Arithmetic derivatives of the Motzkin numbers.

%F a(n) = A003415(A001006(n)).

%F a(n) = 1 for n in A092831.

%t Table[If[Abs@ # < 2, 0, # Total[#2/#1 & @@@ FactorInteger[Abs@ #]]] &@ Hypergeometric2F1[(1 - n)/2, -n/2, 2, 4], {n, 0, 31}] (* _Michael De Vlieger_, Oct 17 2016, after _Michael Somos_ at A003415 and _Peter Luschny_ at A001006 *)

%Y Cf. A003415, A001006, A068329, A092831.

%K nonn

%O 0,4

%A _Paul Bedard_, Oct 16 2016

%E More terms from _Alois P. Heinz_, Oct 16 2016