|
|
A173233
|
|
Numbers k such that k and k+3 are in A002822.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
Definition and sequence corrected (667, 707, 1097 etc inserted) by R. J. Mathar, May 02 2010
|
|
STATUS
|
approved
|
|
|
|