|
Search: id:A090546
|
|
| |
|
| 2, 6, 4, 10, 16, 11, 24, 17, 35, 26, 69, 53, 113, 184, 149, 124, 99, 78, 224, 182, 148, 118, 94, 73, 304, 309, 255, 209, 170, 137, 561, 470, 393, 327, 270, 238, 194, 157, 443, 1352, 1161, 994, 848, 720, 609, 512, 430, 2967, 2602, 5056, 4451, 7132, 6311, 6475, 5722
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MAPLE
|
f := proc(k) k+numtheory[pi](k) ; end: A090544 := proc(n) local a, frep ; a := 1 ; frep := f(n) ; while not isprime(frep) do frep := f(frep) ; a := a+1 ; od ; RETURN(a) ; end: A090546 := proc(nmax) local a, m ; a := [seq(0, i=1..nmax)] ; for m from 2 to 10000 do a090544 := A090544(m) ; if a090544 <= nops(a) and op(a090544, a) = 0 then a := subsop(a090544=m, a) ; print(a090544, m) ; fi ; od ; RETURN(a) ; end: A090546(80) ; - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Apr 28 2007
|
|
CROSSREFS
|
Cf. A090544, A090545.
Adjacent sequences: A090543 A090544 A090545 this_sequence A090547 A090548 A090549
Sequence in context: A094748 A065879 A065880 this_sequence A059909 A007517 A072946
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Dec 09 2003
|
|
EXTENSIONS
|
More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Apr 28 2007
|
|
|
Search completed in 0.002 seconds
|
