A259182 a(n) = prime(n) if n prime otherwise 1.

1, 3, 5, 1, 11, 1, 17, 1, 1, 1, 31, 1, 41, 1, 1, 1, 59, 1, 67, 1, 1, 1, 83, 1, 1, 1, 1, 1, 109, 1, 127, 1, 1, 1, 1, 1, 157, 1, 1, 1, 179, 1, 191, 1, 1, 1, 211, 1, 1, 1, 1, 1, 241, 1, 1, 1, 1, 1, 277, 1, 283, 1, 1, 1, 1, 1, 331, 1, 1, 1, 353, 1, 367, 1, 1, 1, 1

Offset

1,2

Comments

The subsequence of prime terms is A006450.

Links

Table of n, a(n) for n=1..77.

Example

a(7) = 17 because prime(7) = 17 is prime.
a(8) = 1 because 8 is not prime.

Mathematica

Table[If[! PrimeQ[n], 1, Prime[n]], {n, 100}]

Prog

(Magma) [IsPrime(n) select NthPrime(n) else 1: n in [1..100]];

Crossrefs

Cf. A006450, A007821, A010051, A061397, A191558, A259175.

Sequence in context: A101035 A204029 A026253 * A138259 A077021 A344437

Adjacent sequences: A259179 A259180 A259181 * A259183 A259184 A259185

Keyword

nonn,easy

Author

Vincenzo Librandi, Jun 20 2015

Status

approved