OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
A158015(1) = 2 is the smallest prime p such that 6p - 1 = 12 - 1 = 11 is also prime, whence a(1) = A049452(2) = 2*(6*2 - 1) = 22.
MATHEMATICA
Select[Table[p(6p-1), {p, 500}], PrimeOmega[#]==2&] (* Harvey P. Dale, Apr 27 2022 *)
PROG
(PARI) [p*(6*p-1) | p<-primes(99), isprime(6*p-1)]
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Dec 13 2019
STATUS
approved