|
|
A141636
|
|
Primes of the form c(c(c(i)-3)-3)-3, where A002808(i)=c(i)=i-th composite.
|
|
0
|
|
|
7, 11, 13, 17, 19, 31, 37, 43, 59, 61, 79, 83, 97, 109, 137, 149, 151, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 251, 269, 293, 307, 313, 317, 337, 347, 349, 353, 373, 379, 383, 397, 419, 421, 431, 433, 443, 457, 461, 463, 467, 487, 491, 503, 509, 541, 547, 557, 563, 569, 571, 577, 587, 593
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
If i=1, then c(c(c(1)-3)-3)-3=c(c(4-3)-3)-3=c(4-3)-3=4-3=1 (nonprime).
If i=2, then c(c(c(2)-3)-3)-3=c(c(6-3)-3)-3=c(8-3)-3=c(5)-3=10-3=7=a(1).
|
|
MAPLE
|
A002808 := proc(n) option remember ; if n = 1 then 4; else for a from procname(n-1)+1 do if not isprime(a) then RETURN(a); fi; od: fi; end: rep := 3: for n from 1 to 800 do arep := n ; for i from 1 to rep do arep := A002808(arep)-3 ; od: if isprime(arep) then printf("%d, ", arep) ; fi; od: # R. J. Mathar, Sep 05 2008
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Removed erroneous examples, correctly roughly 10 percent of the values. - R. J. Mathar, Sep 05 2008
|
|
STATUS
|
approved
|
|
|
|