A173626 Primes p such that p-1 has no prime factors larger than sqrt(p).

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

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