A104364 Primes of the form A104350(k) - 1.

5, 11, 59, 179, 1259, 7559, 37799, 415799, 1135133999, 5499724229999, 29220034833989999, 1408101540804746673385499999, 43673268652925265723884051023987499999

Offset: 1

Author

Reinhard Zumkeller, Mar 06 2005

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..26

Crossrefs

Intersection of A104357 and A000040.

Cf. A104372, A104373, A055490, A057705.

Programs

Mathematica

Select[FoldList[Times, Array[FactorInteger[#][[-1, 1]] &, 100]] - 1, PrimeQ] (* Amiram Eldar, Apr 08 2024 *)

PARI

gpf(n) = {my(p = factor(n)[, 1]); if(n == 1, 1, p[#p]);}
lista(nmax) = {my(r = 1); for(k = 1, nmax, r * = gpf(k); if(isprime(r-1), print1(r-1, ", ")));} \\ Amiram Eldar, Apr 08 2024