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
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
KEYWORD
nonn,easy
AUTHOR
Jaroslav Krizek, Mar 22 2009
EXTENSIONS
Edited by R. J. Mathar, Aug 21 2009
STATUS
approved