Nothing Special   »   [go: up one dir, main page]

login
A158611
0, 1 and the primes.
29
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
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
Further edited by R. J. Mathar, Klaus Brockhaus and N. J. A. Sloane, Sep 13 2009
STATUS
approved