|
Search: id:A153215
|
|
|
| A153215 |
|
Primes p such that p+-1 and p+-2 are NotSquare-free. |
|
+0
1
|
|
| 727, 1423, 1861, 3719, 6173, 9749, 11321, 13183, 19073, 20873, 23227, 23473, 23827, 26981, 27883, 34351, 35323, 41263, 42677, 44449, 45127, 45523, 47527, 48751, 49727, 52391, 53623, 53849, 68749, 71993, 72559, 78823, 83609, 89227, 92779
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MAPLE
|
f[n_]:=Max[Last/@FactorInteger[n]]; q=2; lst={}; Do[p=Prime[n]; If[f[p-2]>=q&&f[p-1]>=q&&f[p+1]>=q&&f[p+2]>=q, AppendTo[lst, p]], {n, 4*7!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Oct 03 2009]
|
|
MATHEMATICA
|
<< NumberTheory`NumberTheoryFunctions` lst={}; Do[p=Prime[n]; If[ !SquareFreeQ[p-1]&&!SquareFreeQ[p+1]&&!SquareFreeQ[p-2]&&!SquareFreeQ[p+2], AppendTo[lst, p]], {n, 4*7!}]; lst
|
|
CROSSREFS
|
Cf. A049282, A049097, A039787, A075432, A153207, A153208, A153209, A153210, A153213, A153214
Sequence in context: A108846 A052234 A103170 this_sequence A129117 A158394 A038600
Adjacent sequences: A153212 A153213 A153214 this_sequence A153216 A153217 A153218
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Vladimir Orlovsky (4vladimir(AT)gmail.com), Dec 20 2008
|
|
EXTENSIONS
|
New mathematica program, 110 Times Faster!
|
|
|
Search completed in 0.002 seconds
|
