A135681 a(n)=n if n=prime. Otherwise, a(n)=4 if n is even and a(n)=1 if n is odd.

1, 2, 3, 4, 5, 4, 7, 4, 1, 4, 11, 4, 13, 4, 1, 4, 17, 4, 19, 4, 1, 4, 23, 4, 1, 4, 1, 4, 29, 4, 31, 4, 1, 4, 1, 4, 37, 4, 1, 4, 41, 4, 43, 4, 1, 4, 47, 4, 1, 4, 1, 4, 53, 4, 1, 4, 1, 4, 59, 4, 61, 4, 1, 4, 1, 4, 67, 4, 1, 4, 71, 4, 73

Offset

1,2

Links

G. C. Greubel, Table of n, a(n) for n = 1..1000

Mathematica

a[n_] := If[PrimeQ[n] || n == 1, n, If[EvenQ[n], 4, 1] ]; Table[a[n], {n, 1, 25}] (* G. C. Greubel, Oct 26 2016 *)

Crossrefs

Cf. A135679; A135580; A014681; A014682; A014683; A014684; A014685; A014686; A014687; A014688; A014689; A014690.

Sequence in context: A233775 A118577 A377070 * A135680 A135682 A287415

Adjacent sequences: A135678 A135679 A135680 * A135682 A135683 A135684

Keyword

nonn,less

Author

Mohammad K. Azarian, Dec 01 2007

Status

approved