|
|
A068235
|
|
a(n) is the smallest prime p such that p and the next n-1 primes are all == 11 (mod 12).
|
|
8
|
|
|
11, 467, 1499, 16763, 260339, 2003387, 7722419, 20221283, 927161471, 4284484931, 7355362139, 84805717127, 478527373859, 2046207697631, 7302359785151, 21104656617827, 21104656617827
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Dickson's conjecture implies that a(n) exists for all n.
|
|
LINKS
|
|
|
MATHEMATICA
|
For[i=n=1, True, Null, For[j=0, j<n&&Mod[Prime[i+j], 12]==11, j++, Null]; If[j==n, Print[Prime[i]]; n++, i++ ]]
|
|
PROG
|
(PARI) {i=n=1; while(1, j=0; while(j<n&&prime(i+j)%12==11, j++); if(j==n, print(prime(i)); n++, i++))}
|
|
CROSSREFS
|
|
|
KEYWORD
|
more,nice,nonn
|
|
AUTHOR
|
Ferenc Adorjan (fadorjan(AT)freemail.hu), Feb 22 2002
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|