|
| |
|
|
A051884
|
|
Smallest number larger than the previous term which is not a prime but is relatively prime to the previous term.
|
|
5
| |
|
|
1, 4, 9, 10, 21, 22, 25, 26, 27, 28, 33, 34, 35, 36, 49, 50, 51, 52, 55, 56, 57, 58, 63, 64, 65, 66, 85, 86, 87, 88, 91, 92, 93, 94, 95, 96, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 143, 144, 145, 146, 147, 148, 153, 154, 155, 156, 161, 162, 169
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
REFERENCES
| A. Murthy, Exploring some new ideas on Smarandache type sets, functions and sequences, Smarandache Notions Journal Vol. 11, N 1-2-3 Spring 2000
|
|
|
LINKS
| T. D. Noe, Table of n, a(n) for n=1..1000
|
|
|
MAPLE
| with(numtheory); i:=4; k:=5; while(k < 100) do while(order(k, i) = FAIL or isprime(k)) do k:=k+1; end do; print(k); i:= k; k:=k+1; end do; - Ben Thurston (benthurston27(AT)yahoo.com), Feb 08 2007
|
|
|
MATHEMATICA
| rPrimeNext[n_]:=Module[{k}, k=n+1; While[PrimeQ[k]||GCD[n, k]!=1, k++ ]; k]; a=1; lst={a}; Do[AppendTo[lst, a=rPrimeNext[a]], {n, 0, 5!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), May 15 2010]
|
|
|
CROSSREFS
| Cf. A085084.
Sequence in context: A102837 A004631 A119718 * A131368 A131457 A072525
Adjacent sequences: A051881 A051882 A051883 * A051885 A051886 A051887
|
|
|
KEYWORD
| nonn,nice,easy
|
|
|
AUTHOR
| Felice Russo (frusso(AT)micron.com), Dec 15 1999
|
|
|
EXTENSIONS
| More terms from James A. Sellers (sellersj(AT)math.psu.edu), Dec 16 1999
Definition corrected by Franklin T. Adams-Watters (FrankTAW(AT)Netscape.net), Sep 19 2006
|
| |
|
|
