A173233 Numbers k such that k and k+3 are in A002822.

2, 7, 30, 100, 107, 135, 172, 217, 322, 352, 452, 562, 590, 667, 707, 917, 940, 975, 1092, 1127, 1222, 1470, 1570, 1950, 2282, 2545, 2772, 2865, 2930, 3007, 3087, 3682, 3770, 3840, 3945, 4447, 4452, 4477, 5142, 5555, 5600, 5625, 5635, 6262, 6442, 7520, 8232

Offset: 1

Author

Juri-Stepan Gerasimov, Feb 13 2010

Keywords

• nonn

Examples

			2 is a term because 2 and 5 are in A002822.
		

Crossrefs

Cf. A002822, A173232.

Programs

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 *)

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