The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A153214 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A153214

Primes p such that p+-2 and p+-3 are not squarefree.
(history; published version)

#9 by Joerg Arndt at Sat Jul 01 08:28:24 EDT 2023

STATUS

reviewed

approved

#8 by Amiram Eldar at Sat Jul 01 06:06:36 EDT 2023

STATUS

proposed

reviewed

#7 by Michel Marcus at Sat Jul 01 05:58:35 EDT 2023

STATUS

editing

proposed

#6 by Michel Marcus at Sat Jul 01 05:58:30 EDT 2023

NAME

Primes p such that p+-2 and p+-3 are NotSquarefreenot squarefree.

STATUS

approved

editing

#5 by Harvey P. Dale at Tue Aug 27 15:44:32 EDT 2019

STATUS

editing

approved

#4 by Harvey P. Dale at Tue Aug 27 15:44:28 EDT 2019

MATHEMATICA

Select[Prime[Range[10000]], NoneTrue[#+{-3, -2, 2, 3}, SquareFreeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 27 2019 *)

STATUS

approved

editing

#3 by Russ Cox at Sat Mar 31 12:38:18 EDT 2012

AUTHOR

_Vladimir Joseph Stephan Orlovsky (4vladimir(AT)gmail.com), _, Dec 20 2008

Discussion

Sat Mar 31

12:38

OEIS Server: https://oeis.org/edit/global/876

#2 by N. J. A. Sloane at Tue Jun 01 03:00:00 EDT 2010

NAME

Primes p such that p+-2 and p+-3 are NotSquare-freeNotSquarefree.

KEYWORD

nonn,new

nonn

#1 by N. J. A. Sloane at Fri Jan 09 03:00:00 EST 2009

NAME

Primes p such that p+-2 and p+-3 are NotSquare-free.

DATA

47, 1447, 1847, 3701, 6653, 11273, 14947, 15727, 17053, 18493, 21661, 24923, 26647, 29153, 32789, 33023, 38873, 39323, 42437, 42923, 44053, 47527, 47977, 49853, 52027, 52153, 56747, 56873, 59929, 71147, 74189, 79427, 80953, 99277, 99713

OFFSET

1,1

MATHEMATICA

lst={}; Do[p=Prime[n]; If[ !SquareFreeQ[p-2]&&!SquareFreeQ[p+2]&&!SquareFreeQ[p-3]&&!SquareFreeQ[p+3], AppendTo[lst, p]], {n, 3*7!}]; lst

CROSSREFS

Cf. A049282, A049097, A039787, A075432, A153207, A153208, A153209, A153210, A153213

KEYWORD

nonn,new

AUTHOR

Vladimir Orlovsky (4vladimir(AT)gmail.com), Dec 20 2008

STATUS

approved