A108222 Primes p such that ceiling(sqrt(p)) = prime.

2, 3, 5, 7, 17, 19, 23, 37, 41, 43, 47, 101, 103, 107, 109, 113, 149, 151, 157, 163, 167, 257, 263, 269, 271, 277, 281, 283, 331, 337, 347, 349, 353, 359, 487, 491, 499, 503, 509, 521, 523, 787, 797, 809, 811, 821, 823, 827, 829, 839, 907, 911, 919, 929, 937

Offset

1,1

Links

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

Mathematica

Select[Prime /@ Range[200], PrimeQ[Ceiling[Sqrt[ # ]]] &] (* Ray Chandler, Jul 03 2005 *)

Crossrefs

Cf. A108221.

Sequence in context: A155471 A158015 A042995 * A090725 A276141 A214588

Adjacent sequences: A108219 A108220 A108221 * A108223 A108224 A108225

Keyword

easy,nonn

Author

Giovanni Teofilatto, Jun 16 2005

Extensions

Corrected and extended by Ray Chandler, Jul 03 2005

Status

approved