login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A073322 a(n)=A073259[A002808(n)] and a(0)=3; Length of FixedPointList started with n-th nonprime and leading to corresponding composite number= c[c(n)]. 2

%I #7 Oct 15 2013 22:31:26

%S 3,4,3,3,4,4,4,4,3,3,4,4,3,3,4,4,3,4,4,4,4,4,3,3,4,4,3,4,4,4,3,4,4,4,

%T 4,5,4,4,3,4,4,5,4,4,3,4,4,4,3,3,4,4,4,5,4,4,5,4,4,4,4,4,4,4,3,3,3,3,

%U 3,3,4,4,5,4,4,4,5,4,4,3,3,3,4,5,4,4,4,4,4,4,4,4,4,5,4,5,4,4,4,5,4,4,4,5,4

%N a(n)=A073259[A002808(n)] and a(0)=3; Length of FixedPointList started with n-th nonprime and leading to corresponding composite number= c[c(n)].

%F See Program.

%e list to n=0 corresponding to c[0]=1: {1,2,3,4} started with first nonprime ended with first composite; n=10: composite[10]=18, a(10)=length[{16,26,28}]=3.

%t c[x_] := FixedPoint[x+c[ # ]+1&, x] lfp[x_] := Length[FixedPointList[x+c[ # ]+1&, x]]-1 Table[lfp[c[w]]-1, {w, 1, 128}]

%Y Cf. A002808, A073259, A073260.

%K nonn

%O 0,1

%A _Labos Elemer_, Jul 29 2002

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 10:44 EDT 2024. Contains 371268 sequences. (Running on oeis4.)