OFFSET
1,1
COMMENTS
All numbers of the form 2p, where p==1(mod 3) is prime, are in the sequence.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[500], Divisible[#+1, 3]&&Divisible[FactorInteger[#] [[-1, 1]]-1, 3]&] (* Harvey P. Dale, Jul 29 2019 *)
PROG
(PARI) isok(n) = ((n % 3) == 2) && ((vecmax(factor(n)[, 1]) % 3) == 1); \\ Michel Marcus, Feb 08 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Apr 14 2010
EXTENSIONS
More terms from Michel Marcus, Feb 08 2016
STATUS
approved