login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A000430 Primes and squares of primes. 26
2, 3, 4, 5, 7, 9, 11, 13, 17, 19, 23, 25, 29, 31, 37, 41, 43, 47, 49, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 121, 127, 131, 137, 139, 149, 151, 157, 163, 167, 169, 173, 179, 181, 191, 193, 197, 199, 211, 223 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Also numbers n such that product of proper divisors is < n.

A084114(a(n)) = 0, see also A084110. - Reinhard Zumkeller, May 12 2003

A109810(a(n)) = 2. [From Reinhard Zumkeller, May 24 2010]

A010051(a(n)) + A010055(a(n))*A064911(a(n)) = 1.

A056595(a(n)) = 1. [Reinhard Zumkeller, Aug 15 2011]

See A050216 for lengths of blocks of consecutive primes. [Reinhard Zumkeller, Sep 23 2011]

REFERENCES

F. Smarandache, Definitions solved and unsolved problems, conjectures and theorems in number theory and geometry, edited by M. Perez, Xiquan Publishing House 2000

F. Smarandache, Sequences of Numbers Involved in Unsolved Problems, Hexis, Phoenix, 2006.

LINKS

T. D. Noe, Table of n, a(n) for n = 1..1000

F. Smarandache, Sequences of Numbers Involved in Unsolved Problems.

MATHEMATICA

nn = 223; t = Union[Prime[Range[PrimePi[nn]]], Prime[Range[PrimePi[Sqrt[nn]]]]^2] (* From T. D. Noe, Apr 11 2011 *)

Module[{upto=250, prs}, prs=Prime[Range[PrimePi[upto]]]; Select[Join[ prs, prs^2], #<=upto&]]//Sort (* Harvey P. Dale, Oct 08 2016 *)

PROG

(Haskell)

a000430 n = a000430_list !! (n-1)

a000430_list = m a000040_list a001248_list where

   m (x:xs) (y:ys) | x < y = x : m xs (y:ys)

                   | x > y = y : m (x:xs) ys

-- Reinhard Zumkeller, Sep 23 2011

(PARI) is(n)=isprime(n) || (issquare(n, &n) && isprime(n)) \\ Charles R Greathouse IV, Sep 04 2013

CROSSREFS

Union of A000040 and A001248.

Sequence in context: A284288 A074583 A001092 * A166684 A067126 A274197

Adjacent sequences:  A000427 A000428 A000429 * A000431 A000432 A000433

KEYWORD

nonn,easy,nice

AUTHOR

R. Muller

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified March 27 22:02 EDT 2017. Contains 284182 sequences.