OFFSET
1,4
COMMENTS
Divide each Pell number by its primitive part.
FORMULA
a(n) = Pell(n)/A008555(n).
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Paul Barry, Apr 15 2005
EXTENSIONS
More terms from Amiram Eldar, Jun 20 2024
STATUS
approved