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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A173626 Primes p such that p-1 has no prime factors larger than sqrt(p). 1
2, 5, 13, 17, 19, 31, 37, 41, 61, 71, 73, 97, 101, 109, 113, 127, 151, 163, 181, 193, 197, 199, 211, 241, 251, 257, 271, 281, 307, 313, 331, 337, 353, 379, 397, 401, 409, 419, 421, 433, 443, 449, 457, 463, 487, 491, 521, 541, 547, 571, 577, 599, 601, 613, 617 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Intersection of A048098 + 1 and A000040.

LINKS

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

MATHEMATICA

Select[Prime[Range[200]], Max[Transpose[FactorInteger[#-1]][[1]]]<= Sqrt[#]&] (* Harvey P. Dale, Feb 21 2012 *)

PROG

(PARI) print1(2); forprime(p=3, 1e3, if(vecmax(factor(p-1)[, 1])^2<p, print1(", "p)))

CROSSREFS

Sequence in context: A139254 A266987 A061303 * A215424 A215428 A019362

Adjacent sequences:  A173623 A173624 A173625 * A173627 A173628 A173629

KEYWORD

easy,nice,nonn

AUTHOR

Charles R Greathouse IV, Nov 08 2010

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
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 22 21:00 EDT 2019. Contains 323496 sequences. (Running on oeis4.)