A360591 Primes in A360464.
2, 3, 5, 7, 17, 29, 43, 59, 97, 193, 251, 277, 389, 439, 491, 577, 601, 659, 719, 911, 1049, 1237, 1429, 1511, 1951, 2141, 2239, 2293, 2339, 2441, 3329, 3449, 3571, 3637, 3821, 3889, 4079, 4211, 4481, 4759, 5569, 5641, 6269, 6761, 7537, 7621, 8161, 8629, 8719
Offset: 1
Programs
-
Mathematica
s[1] = s[2] = s[3] = 1; s[n_] := s[n] = s[n - 1] + s[n - 2] - s[n - 3] + GCD[s[n - 1], s[n - 3]]; Select[Array[s, 180], PrimeQ] (* Amiram Eldar, Feb 24 2023 *)
Comments