A124989 Primes of the form 10*k + 9 generated recursively. Initial prime is 19. General term is a(n) = Min_{p is prime; p divides 100*Q^2 - 5; p == 9 (mod 10)}, where Q is the product of previous terms in the sequence.
19, 7219, 462739, 509, 129229, 295380580489, 9653956849, 149, 110212292237172705230749846071050188009093377022084806290042881946231583507557298889, 157881589, 60397967745386189, 1429, 79
Offset: 1
Keywords
Examples
a(3) = 462739 is the smallest prime divisor congruent to 9 mod 10 of 100Q^2-5 = 1881313992095 = 5 * 462739 * 813121, where Q = 19 * 7219.
Links
- Robert Price, Table of n, a(n) for n = 1..14
Programs
-
Mathematica
a={19}; q=1; For[n=2,n<=6,n++, q=q*Last[a]; AppendTo[a,Min[Select[FactorInteger[100*q^2-5][[All,1]],Mod[#,10]==9&]]]; ]; a (* Robert Price, Jul 18 2015 *)
Comments