OFFSET
1,1
COMMENTS
k^2 - 1 = (k-1)*(k+1) so for most terms, k-1 and k+1 are in A000961. - David A. Corneth, Mar 31 2019
Odd terms are either 2*p-1 where p is a Fermat prime (A019434) or 2*p+1 where p is a Mersenne prime (A000668). - Robert Israel, Mar 31 2019
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
L. J. Gerstein, A reformulation of the Goldbach conjecture, Math. Mag., 66 (1993), 44-45.
MAPLE
select(t -> nops(numtheory:-factorset(t+1) union numtheory:-factorset(t-1)) = 2, [$2..1000]); # Robert Israel, Mar 31 2019
MATHEMATICA
Select[Range@ 900, PrimeNu[#^2 - 1] == 2 &] (* Michael De Vlieger, Apr 01 2019 *)
PROG
(PARI) is(n) = {omega(n^2 - 1) == 2} \\ David A. Corneth, Mar 31 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Mar 31 2019
STATUS
approved