|
Search: id:A064937
|
|
|
| A064937 |
|
Nonprimes n such that gcd(n, prime(n)^2 - 1) is 1. |
|
+0
1
|
|
| 1, 25, 49, 55, 77, 119, 133, 143, 155, 161, 169, 185, 187, 203, 209, 217, 221, 235, 247, 275, 287, 289, 295, 301, 325, 329, 361, 365, 371, 377, 391, 403, 407, 415, 425, 427, 437, 451, 455, 469, 473, 485, 493, 497, 505, 511, 517, 527, 529, 539, 553, 559, 583
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
Harry J. Smith, Table of n, a(n) for n=1,...,1000
|
|
MATHEMATICA
|
Select[ Range[600], !PrimeQ[ # ] && GCD[ #, Prime[ # ]^2 - 1] == 1 & ]
|
|
PROGRAM
|
(PARI) { n=0; for (m=1, 10^9, if (isprime(m), next); if (gcd(m, prime(m)^2 - 1) == 1, write("b064937.txt", n++, " ", m); if (n==1000, return)) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Sep 30 2009]
|
|
CROSSREFS
|
Cf. A064830.
Sequence in context: A004936 A062058 A069063 this_sequence A091300 A112771 A020146
Adjacent sequences: A064934 A064935 A064936 this_sequence A064938 A064939 A064940
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 26 2001
|
|
|
Search completed in 0.002 seconds
|
