A195685 -id:A195685 - cp's OEIS frontend

A307546 Prime indices of A195685.

7, 14, 15, 20, 26, 28, 29, 36, 45, 48, 66, 70, 89, 98, 104, 115, 122, 126, 142, 152, 157, 161, 164, 167, 177, 182, 186, 191, 194, 199, 202, 205, 216, 218, 219, 244, 264, 279, 283, 295, 297, 299, 324, 329, 336, 342, 362, 408, 416, 423, 430, 440, 457, 498, 500

Offset: 1

Peter Dolland, Apr 14 2019

nonn

Since only the indices are listed, this sequence is more compact than A195685. As described there, all elements of the triples (2*prime(a(n))-1, 2*prime(a(n)), 2*prime(a(n))+1) are products of exactly two distinct primes. Such values are called "squarefree semiprimes" in A006881.

			A000040(a(1)) = 17 = A195685(1).
A000040(a(5)) = A000040(26) = 101 = A195685(5).

Alois P. Heinz, Table of n, a(n) for n = 1..10000

Cf. A000005, A000040, A000720, A006881, A195685.

with(numtheory):
q:= n-> (p-> tau(2*p-1)=4 and tau(2*p+1)=4)(ithprime(n)):
select(q, [$1..500])[];  # Alois P. Heinz, Apr 18 2019

isok(k) = my(p=prime(k)); (numdiv(2*p-1) == 4) && (numdiv(2*p+1) == 4); \\ Michel Marcus, Nov 30 2022

a(n) = A000720(A195685(n)).

A195685(n) = A000040(a(n)).

A039833 Smallest of three consecutive squarefree numbers k, k+1, k+2 of the form p*q where p and q are distinct primes.

Original entry on oeis.org

33, 85, 93, 141, 201, 213, 217, 301, 393, 445, 633, 697, 921, 1041, 1137, 1261, 1345, 1401, 1641, 1761, 1837, 1893, 1941, 1981, 2101, 2181, 2217, 2305, 2361, 2433, 2461, 2517, 2641, 2721, 2733, 3097, 3385, 3601, 3693, 3865, 3901, 3957, 4285, 4413, 4533, 4593, 4881, 5601

Offset: 1

Olivier Gérard

Equivalently: k, k+1 and k+2 all have 4 divisors.
There cannot be four consecutive squarefree numbers as one of them is divisible by 2^2 = 4.
These 3 consecutive squarefree numbers of the form p*q have altogether 6 prime factors always including 2 and 3. E.g., if k = 99985, the six prime factors are {2,3,5,19997,33329,49993}. The middle term is even and not divisible by 3.
Nonsquare terms of A056809. First terms of A056809 absent here are A056809(4)=121=11^2, A056809(14)=841=29^2, A056809(55)=6241=79^2.
Cf. A179502 (Numbers k with the property that k^2, k^2+1 and k^2+2 are all semiprimes). - Zak Seidov, Oct 27 2015
The numbers k, k+1, k+2 have the form 2p-1, 2p, 2p+1 where p is an odd prime.  A195685 gives the sequence of odd primes that generates these maximal runs of three consecutive integers with four positive divisors. - Timothy L. Tiffin, Jul 05 2016
a(n) is always 1 or 9 mod 12. - Charles R Greathouse IV, Mar 19 2022

			33, 34 and 35 all have 4 divisors.
85 is a term as 85 = 17*5, 86 = 43*2, 87 = 29*3.

R. K. Guy, Unsolved Problems in Number Theory, Springer, 1st edition, 1981. See section B18.
David Wells, Curious and interesting numbers, Penguin Books, 1986, p. 114.

Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Reinhard Zumkeller)
Roberto Conti, Pierluigi Contucci, and Vitalii Iudelevich, Bounds on tree distribution in number theory, arXiv:2401.03278 [math.NT], 2024. See page 13.

Subsequence of A006881 and A056809 and A263990.

Cf. A038456, A039832, A008683, A007675, A063736, A063838, A070552, A045939, A195685, A179502.

a039833 n = a039833_list !! (n-1)
a039833_list = f a006881_list where
   f (u : vs@(v : w : xs))
     | v == u+1 && w == v+1 = u : f vs
     | otherwise            = f vs
-- Reinhard Zumkeller, Aug 07 2011

lst = {}; Do[z = n^3 + 3*n^2 + 2*n; If[PrimeOmega[z/n] == PrimeOmega[z/(n + 2)] == 4 && PrimeNu[z] == 6, AppendTo[lst, n]], {n, 1, 5601, 2}]; lst (* Arkadiusz Wesolowski, Dec 11 2011 *)
okQ[n_]:=Module[{cl={n,n+1,n+2}},And@@SquareFreeQ/@cl && Union[ DivisorSigma[ 0,cl]]=={4}]; Select[Range[1,6001,2],okQ] (* Harvey P. Dale, Dec 17 2011 *)
SequencePosition[DivisorSigma[0,Range[6000]],{4,4,4}][[All,1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 17 2017 *)

is(n)=n%4==1 && factor(n)[,2]==[1,1]~ && factor(n+1)[,2]==[1,1]~ && factor(n+2)[,2]==[1,1]~ \\ Charles R Greathouse IV, Aug 29 2016

is(n)=my(t=n%12); if(t==1, isprime((n+2)/3) && isprime((n+1)/2) && factor(n)[,2]==[1,1]~, t==9 && isprime(n/3) && isprime((n+1)/2) && factor(n+2)[,2]==[1,1]~) \\ Charles R Greathouse IV, Mar 19 2022

A008966(a(n)) * A064911(a(n)) * A008966(a(n)+1) * A064911(a(n)+1) * A008966(a(n)+2) * A064911(a(n)+2) = 1. - Reinhard Zumkeller, Feb 26 2011

Additional comments from Amarnath Murthy, Vladeta Jovovic, Labos Elemer and Benoit Cloitre, May 08 2002

A248201 Numbers n such that n-1, n and n+1 are all squarefree semiprimes.

Original entry on oeis.org

34, 86, 94, 142, 202, 214, 218, 302, 394, 446, 634, 698, 922, 1042, 1138, 1262, 1346, 1402, 1642, 1762, 1838, 1894, 1942, 1982, 2102, 2182, 2218, 2306, 2362, 2434, 2462, 2518, 2642, 2722, 2734, 3098, 3386, 3602, 3694, 3866, 3902, 3958, 4286, 4414

Offset: 1

James G. Merickel, Oct 03 2014

nonn

A subsequence of A169834. - M. F. Hasler, Oct 26 2014

			33, 34 and 35 factor as 3*11, 2*17 and 5*7, respectively.  No smaller such trio exists, so a(1)=34.

Giovanni Resta, Table of n, a(n) for n = 1..10000
Wikipedia, Semiprime

Cf. A006881, A039833, A169834, A195685, A248202, A248203, A248204, A259349, A259350, A259801.

lst={}; Do[z=n^3 + 3 n^2 + 2 n; If[PrimeOmega[z/n]==PrimeOmega[z/(n + 2)]==4 && PrimeNu[z]==6, AppendTo[lst, n + 1]], {n, 1, 6000, 2}]; lst (* Vincenzo Librandi, Jul 24 2015 *)
SequencePosition[Table[If[SquareFreeQ[n]&&PrimeOmega[n]==2,1,0],{n,4500}],{1,1,1}][[All,1]]+1 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 11 2018 *)

sq(n)=bigomega(n)==2 && omega(n)==2;
for(n=3,10^4,if(sq(n-1)&&sq(n)&&sq(n+1),print1(n,", ")));
\\ Joerg Arndt, Oct 18 2014

a(n) = A039833(n) + 1. - Michel Marcus, Oct 25 2014

a(n) = 2 * A195685(n). - Torlach Rush, Jun 25 2021

cp's OEIS Frontend

A307546 Prime indices of A195685.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

PARI

Formula

A039833 Smallest of three consecutive squarefree numbers k, k+1, k+2 of the form p*q where p and q are distinct primes.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Haskell

Mathematica

PARI

PARI

Formula

Extensions

A248201 Numbers n such that n-1, n and n+1 are all squarefree semiprimes.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula