A078883 Lesser member p of a twin prime pair such that p+1 is 3-smooth.

3, 5, 11, 17, 71, 107, 191, 431, 1151, 2591, 139967, 472391, 786431, 995327, 57395627, 63700991, 169869311, 4076863487, 10871635967, 2348273369087, 56358560858111, 79164837199871, 84537841287167, 150289495621631, 578415690713087, 1141260857376767

Offset

1,1

Links

Ray Chandler, Table of n, a(n) for n = 1..62 (terms < 10^1000)

Formula

a(n) = A027856(n)-1 = A078884(n)-2.

Example

A000040(20) = 71 and 71+1 = 72 = 2^3*3^2 = A003586(17) and 71+2 = 73 = A000040(21), therefore 71 is a term.

Mathematica

seq[max_] := Select[Sort[Flatten[Table[2^i*3^j - 1, {i, 1, Floor[Log2[max]]}, {j, 0, Floor[Log[3, max/2^i]]}]]], And @@ PrimeQ[# + {0, 2}] &]; seq[2*10^15] (* Amiram Eldar, Aug 27 2024 *)

Crossrefs

Cf. A000040, A001359, A014574, A003586, A027856, A078884.

Apart from initial terms, same as A059960.

Sequence in context: A216181 A101781 A101783 * A355901 A155990 A109556

Adjacent sequences: A078880 A078881 A078882 * A078884 A078885 A078886

Keyword

nonn

Author

Reinhard Zumkeller, Dec 11 2002

Status

approved