1,2

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

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

Cf. A000027; A000040; A135679; A135680; A014681; A014682; A014683; A014684; A014685; A014686; A014687; A014688; A014689; A014690; A135681.

Sequence in context: A118577 A135681 A135680 * A287415 A083245 A111610

Adjacent sequences: A135679 A135680 A135681 * A135683 A135684 A135685

nonn

Mohammad K. Azarian, Dec 01 2007

approved