login
Sylvester dividends for Pell numbers.
2

%I #7 Jun 20 2024 02:37:04

%S 1,1,1,2,1,10,1,12,5,58,1,420,1,338,145,408,1,13790,1,14268,845,11482,

%T 1,471240,29,66922,985,484692,1,111944350,1,470832,28705,2273378,4901,

%U 543353580,1,13250218,167305,543810552,1,129202326890,1,559334148,38419925,450117362

%N Sylvester dividends for Pell numbers.

%C Divide each Pell number by its primitive part.

%F a(n) = Pell(n)/A008555(n).

%t f[n_] := f[n] = Fibonacci[n, 2] / Product[f[d], {d, Most[Divisors[n]]}]; f[1] = 1; a[n_] := Fibonacci[n, 2]/f[n]; Array[a, 60] (* _Amiram Eldar_, Jun 20 2024 *)

%Y Cf. A000129, A008555.

%K easy,nonn

%O 1,4

%A _Paul Barry_, Apr 15 2005

%E More terms from _Amiram Eldar_, Jun 20 2024