A158611 0, 1 and the primes.

0, 1, 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263

Offset

1,3

Comments

Essentially a duplicate of A008578. - N. J. A. Sloane, Mar 27 2009

Or, nonnegative noncomposite numbers. - Juri-Stepan Gerasimov, Nov 22 2009, Dec 12 2009

Numbers with all divisors in arithmetic progression. - Charles R Greathouse IV, Oct 19 2015

Links

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

Formula

a(n) = A008578(n-1), n > 1.

Mathematica

Join[{0, 1}, Table[Prime[n], {n, 400}]] (* Vladimir Joseph Stephan Orlovsky, Feb 04 2012 *)

Prog

(PARI) a(n)=if(n<3, n-1, prime(n-2)) \\ Charles R Greathouse IV, Aug 26 2011
(Magma) [0, 1] cat [NthPrime(n): n in [1..100]]; // Vincenzo Librandi, Dec 08 2015
(GAP)
A158611:=Concatenation([0, 1], Filtered([1..10^5], IsPrime)); # Muniru A Asiru, Sep 05 2017

Crossrefs

A158611 U A002808 = A141468 U A000040 = A001477. - Juri-Stepan Gerasimov, Sep 27 2009

Cf. A008578.

Sequence in context: A070159 A322394 A295425 * A226159 A182986 A000040

Adjacent sequences: A158608 A158609 A158610 * A158612 A158613 A158614

Keyword

nonn,easy

Author

Jaroslav Krizek, Mar 22 2009

Extensions

Edited by R. J. Mathar, Aug 21 2009

Further edited by R. J. Mathar, Klaus Brockhaus and N. J. A. Sloane, Sep 13 2009

Status

approved