OFFSET
1,1
EXAMPLE
2 is a term because 2 and 5 are in A002822.
MAPLE
isA002822 := proc(n) isprime(6*n-1) and isprime(6*n+1) ; end proc:
isA173233 := proc(n) isA002822( n ) and isA002822(n+3 ) ; end proc:
for n from 1 to 3000 do if isA173233(n) then printf("%d, ", n) ; end if; end do: # R. J. Mathar, May 02 2010
MATHEMATICA
SequencePosition[Table[If[AllTrue[6n+{1, -1}, PrimeQ], 1, 0], {n, 9000}], {1, _, _, 1}][[;; , 1]] (* Harvey P. Dale, Jul 05 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Feb 13 2010
EXTENSIONS
Definition and sequence corrected (667, 707, 1097 etc inserted) by R. J. Mathar, May 02 2010
More terms from Jinyuan Wang, May 15 2020
STATUS
approved