login
A167419
Exchange adjacent nonprimes and primes.
1
2, 1, 4, 3, 6, 5, 8, 7, 9, 11, 10, 13, 12, 14, 15, 17, 16, 19, 18, 20, 21, 23, 22, 24, 25, 26, 27, 29, 28, 31, 30, 32, 33, 34, 35, 37, 36, 38, 39, 41, 40, 43, 42, 44, 45, 47, 46, 48, 49, 50, 51, 53, 52, 54, 55, 56, 57, 59, 58, 61, 60, 62, 63, 64, 65, 67, 66, 68, 69, 71, 70, 73, 72
OFFSET
1,1
COMMENTS
If we have consecutive numbers, one prime and one nonprime, swap them. So after the initial 2,1,4,3,6,5,8,7 we have "if n is prime, a(n) = n-1; if n+1 is prime, a(n) = n+1, otherwise a(n) = n".
LINKS
MATHEMATICA
a[n_]:=If[PrimeQ[n], n-1, If[PrimeQ[n+1], n+1, n]]; Join[{2, 1, 4, 3, 6, 5, 8, 7}, Array[a, 65, 9]] (* Stefano Spezia, May 05 2023 *)
CROSSREFS
Cf. A014681.
Sequence in context: A355679 A147965 A167542 * A114285 A014681 A103889
KEYWORD
easy,nonn
AUTHOR
Giovanni Teofilatto, Nov 03 2009
EXTENSIONS
Edited by Franklin T. Adams-Watters, Nov 04 2009
42 and 64 inserted by Stefano Spezia, May 05 2023
STATUS
approved