%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