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,1

Links

Table of n, a(n) for n=1..47.

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

Cf. A002822, A173232.

Sequence in context: A042913 A383890 A041805 * A074416 A386489 A325577

Adjacent sequences: A173230 A173231 A173232 * A173234 A173235 A173236

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