|
| |
|
|
A087269
|
|
Nonprime solutions to GCD[x,pi[x]]=GCD[x, A000720(x)]=1.
|
|
2
| |
|
|
1, 9, 12, 18, 21, 25, 26, 28, 32, 34, 35, 36, 42, 45, 49, 52, 55, 57, 60, 65, 68, 69, 70, 74, 76, 81, 84, 85, 86, 87, 88, 91, 95, 98, 99, 104, 106, 110, 111, 112, 119, 121, 128, 129, 130, 133, 135, 141, 143, 145, 147, 155, 158, 159, 160, 161, 162, 165, 170, 172, 177
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
MATHEMATICA
| t=Table[GCD[w, PrimePi[w]], {w, 1, 1000}]; f=Flatten[Position[t, 1]]; cf=Part[f, Flatten[Position[PrimeQ[f], False]]]
|
|
|
CROSSREFS
| Cf. A007053, A000720, A087266-A087268, A057809.
Sequence in context: A174525 A141552 A162822 * A153973 A072702 A157973
Adjacent sequences: A087266 A087267 A087268 * A087270 A087271 A087272
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Sep 16 2003
|
| |
|
|
