

A090546


Position of first occurrence of n in A090544.


3



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;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

Table of n, a(n) for n=1..55.


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, Apr 28 2007


CROSSREFS

Cf. A090544, A090545.
Sequence in context: A245788 A065879 A065880 * A242901 A266013 A222423
Adjacent sequences: A090543 A090544 A090545 * A090547 A090548 A090549


KEYWORD

nonn


AUTHOR

Amarnath Murthy, Dec 09 2003


EXTENSIONS

More terms from R. J. Mathar, Apr 28 2007


STATUS

approved



