|
| |
|
|
A039787
|
|
Primes p such that p-1 is squarefree.
|
|
13
| |
|
|
2, 3, 7, 11, 23, 31, 43, 47, 59, 67, 71, 79, 83, 103, 107, 131, 139, 167, 179, 191, 211, 223, 227, 239, 263, 283, 311, 331, 347, 359, 367, 383, 419, 431, 439, 443, 463, 467, 479, 499, 503, 547, 563, 571, 587, 599, 607, 619, 643, 647, 659, 683, 691, 719, 743
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| An equivalent definition: numbers n such that phi(n) is equal to the squarefree kernel of n-1.
|
|
|
EXAMPLE
| phi(43)=42, 42=2^1*3^1*7^1, 2*3*7=42.
p=223 is here because p-1=222=2*3*37
|
|
|
MATHEMATICA
| lst={}; Do[p=Prime[n]; If[SquareFreeQ[Floor[p-1]]&&!SquareFreeQ[Floor[p+1]], AppendTo[lst, p]], {n, 6!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Dec 20 2008]
|
|
|
PROG
| (MAGMA) [p: p in PrimesUpTo(780) | IsSquarefree(p-1)]; // Bruno Berselli, Mar 03 2011
|
|
|
CROSSREFS
| Cf. A000010, A007947.
Sequence in context: A165318 A108184 A049091 * A129940 A128631 A092217
Adjacent sequences: A039784 A039785 A039786 * A039788 A039789 A039790
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Olivier Gerard (olivier.gerard(AT)gmail.com)
|
|
|
EXTENSIONS
| More terms from Labos E. (labos(AT)ana.sote.hu)
|
| |
|
|
