|
Search: id:A129474
|
|
|
| A129474 |
|
Primes of Erdos-Selfridge class 14+. |
|
+0
6
|
|
| 1704961513, 7281416041, 7638227617, 9462536833, 11934730597, 13237911481, 13282423003, 13522629793, 13942983841, 14185279861, 16029089501, 16221987853, 17434233041, 18171787987, 19639505461, 20717555041
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
a(1..149) calculated using A090468 up to 37.5e9, which gives A129474(150) > 75e9.
|
|
LINKS
|
M. F. Hasler, Table of n, a(n) for n=1..149
|
|
FORMULA
|
{ a(n) } = { p = 2*m*A090468(k)-1 | k=1,2,3... and m=1,2,3... such that p is prime and m has no factor of class > 13+ }
|
|
EXAMPLE
|
a(1) = A005113[14] = 1704961513 = -1+2*852480757, where 852480757 = A090468[2]
|
|
PROGRAM
|
(PARI) class(n, s=1) = { if(!isprime(n), 0, if(!(n=factor(n+s)[, 1]) | n[ #n]<=3, 1, for(i=2, #n, n[1]=max(class(n[i], s)+1, n[1])); n[1]))}; nextclass(a, s=1, p, n=[])={if(!p, p=nextprime(a[ #a]+1)); print("producing primes of class ", 1+class(a[1], s), ["+", "-"][1+(s<0)], " up to 2*", p); for(i=1, #a, for(k=1, p/a[i], if(isprime(2*k*a[i]-s), n=concat(n, 2*k*a[i]-s)))); vecsort(n)}; A129474=nextclass(A090468, 1)
|
|
CROSSREFS
|
Cf. A005113, A005105 - A005108, A081633 - A081639, A084071, A090468, A129475.
Adjacent sequences: A129471 A129472 A129473 this_sequence A129475 A129476 A129477
Sequence in context: A104944 A126432 A071372 this_sequence A015411 A034649 A129616
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
M. F. Hasler (Maximilian.Hasler(AT)gmail.com), Apr 16 2007
|
|
|
Search completed in 0.002 seconds
|
