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

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

Offset

1,1

Links

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

Mathematica

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

Prog

(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

Crossrefs

Intersection of A104357 and A000040.

Cf. A104372, A104373, A055490, A057705.

Sequence in context: A104358 A104359 A104357 * A136669 A208768 A057824

Adjacent sequences: A104361 A104362 A104363 * A104365 A104366 A104367

Keyword

nonn

Author

Reinhard Zumkeller, Mar 06 2005

Status

approved