OFFSET
1,1
COMMENTS
By definition, all terms are composite numbers.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[4*Range[200]-1, Divisible[FactorInteger[#][[-1, 1]]-1, 4]&] (* Harvey P. Dale, May 17 2013 *)
PROG
(PARI) isok(n) = ((n % 4) == 3) && ((vecmax(factor(n)[, 1]) % 4) == 1); \\ Michel Marcus, Feb 07 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Apr 13 2010
EXTENSIONS
Corrected and extended by Harvey P. Dale, May 17 2013
STATUS
approved