A166000 -id:A166000 - cp's OEIS frontend

A166003 Primes p such that p+-1, p+-2 and p+-3 are not squarefree.

47527, 186247, 218527, 245149, 269953, 377543, 390449, 432277, 447823, 453053, 469649, 518123, 568177, 584911, 589273, 606323, 632347, 661547, 761347, 831751, 848213, 897577, 913327, 925949, 952253, 1172351, 1205647, 1220347, 1241477

Offset: 1

Vladimir Joseph Stephan Orlovsky, Oct 03 2009

nonn

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A086708, A086709, A089199, A089200, A089212, A166000, A166001, A166002.

f[n_]:=Max[Last/@FactorInteger[n]]; q=2;lst={};Do[p=Prime[n];If[f[p-3]>=q&&f[p-2]>=q&&f[p-1]>=q&&f[p+1]>=q&&f[p+2]>=q&&f[p+3]>=q,AppendTo[lst,p]],{n,6*8!}];lst
Select[Prime[Range[100000]],NoneTrue[#+{-3,-2,-1,1,2,3},SquareFreeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 17 2018 *)

Edited by N. J. A. Sloane, Oct 04 2009

A166001 Primes p such that p-5, p-4, p+4, and p+5 are each divisible by a cube > 1.

Original entry on oeis.org

751379, 2414507, 2839621, 3170371, 4469629, 5736371, 21154909, 22556371, 22991629, 23313371, 23748629, 24338371, 28372621, 31628371, 32079757, 33009629, 41078371, 42270629, 43465307, 44446621, 49746667, 50579339

Offset: 1

Vladimir Joseph Stephan Orlovsky, Oct 03 2009

G. C. Greubel, Table of n, a(n) for n = 1..271

Cf. A086708, A086709, A089199, A089200, A089212, A166000.

f[n_]:=Max[Last/@FactorInteger[n]]; q=3;lst={};Do[p=Prime[n];If[f[p-5]>=q&&f[p-4]>=q&&f[p+4]>=q&&f[p+5]>=q,AppendTo[lst,p]],{n,4*8!}];lst

Extended by Charles R Greathouse IV, Oct 09 2009

A166002 Primes p such that p-6, p-5, p+5, and p+6 are each divisible by a cube greater than 1.

Original entry on oeis.org

1934869, 6136619, 11195869, 11845499, 12385381, 33919619, 39139381, 39790381, 52937869, 53209381, 53631131, 54601619, 58690381, 62892131, 67951381, 77212381, 80224619, 88874869, 94544869, 95734381, 99936131, 103805869, 108827869

Offset: 1

Vladimir Joseph Stephan Orlovsky, Oct 03 2009

nonn

Cf. A086708, A086709, A089199, A089200, A089212, A166000, A166001

f[n_]:=Max[Last/@FactorInteger[n]]; q=3;lst={};Do[p=Prime[n];If[f[p-6]>=q&&f[p-5]>=q&&f[p+5]>=q&&f[p+6]>=q,AppendTo[lst,p]],{n,5*9!}];lst

Edited by N. J. A. Sloane, Oct 04 2009

Extended and edited by Charles R Greathouse IV, May 12 2010

cp's OEIS Frontend

A166003 Primes p such that p+-1, p+-2 and p+-3 are not squarefree.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Extensions

A166001 Primes p such that p-5, p-4, p+4, and p+5 are each divisible by a cube > 1.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Extensions

A166002 Primes p such that p-6, p-5, p+5, and p+6 are each divisible by a cube greater than 1.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Extensions