A338416 Numbers k such that both 3*k-2 and 2*k-3 are in A338410.
11, 71, 1091, 2927, 7127, 12347, 23087, 41651, 56951, 74747, 119771, 234947, 298451, 405287, 458207, 649907, 656291, 708371, 936587, 991187, 1015127, 1056971, 1058807, 1128527, 1129787, 1169687, 1393967, 1413371, 1417067, 1442351, 1502747, 1707551, 1752227, 1785071, 1928807, 1957871, 1998947
Offset: 1
Keywords
Examples
a(3) = 1091 is in the sequence because 3*1091-2=3271 and 2*1091-3=2179 are in A338410.
Links
- Robert Israel, Table of n, a(n) for n = 1..4000
Crossrefs
Cf. A338410.
Programs
-
Maple
filter:= proc(p) isprime(p) and isprime(3*p-2) and isprime(2*p-3) and isprime((3*p+1)/2) and isprime((2*p-1)/3) end proc: select(filter, [seq(i,i=11 .. 10^7, 12)]);
-
Mathematica
Select[Prime[Range[150000]],AllTrue[{3#-2,2#-3,(2#-1)/3,(3#+1)/2},PrimeQ]&] (* Harvey P. Dale, May 20 2023 *)
Comments