login
A073321
a(n)=A073259[A000040(n)]; Length of FixedPointList started with n-th prime and leading to corresponding composite number.
1
4, 4, 3, 4, 4, 3, 3, 4, 3, 5, 3, 4, 3, 5, 3, 4, 4, 4, 4, 3, 4, 5, 5, 3, 4, 4, 3, 4, 3, 3, 4, 4, 4, 5, 5, 4, 4, 3, 4, 3, 5, 4, 4, 4, 4, 4, 4, 5, 4, 4, 4, 4, 3, 5, 4, 3, 5, 4, 3, 4, 5, 4, 5, 4, 4, 4, 4, 4, 4, 5, 4, 4, 4, 6, 4, 4, 4, 5, 4, 4, 4, 4, 4, 4, 3, 4, 4, 4, 4, 4, 5, 4, 4, 6, 4, 4, 4, 4, 4, 5, 4, 4, 4, 4, 4
OFFSET
1,1
FORMULA
See Program.
EXAMPLE
a=10,p(10)=29, list={29,40,42,43,44}.
MATHEMATICA
lfp[x_] := Length[FixedPointList[x+PrimePi[ # ]+1&, x]]-1 Table[lfp[Prime[w]]-1, {w, 1, 128}]
CROSSREFS
Sequence in context: A307836 A106147 A202393 * A055620 A072420 A377049
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 29 2002
STATUS
approved