cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-2 of 2 results.

A073323 Smallest k such that A073259(k)=n or 0 if there is no such value; the first number of which length of fixed-point-list terminated by k-th composite number equals n.

Original entry on oeis.org

0, 0, 4, 1, 29, 153, 4913, 73114, 1985627, 69912446, 2734947158
Offset: 1

Views

Author

Labos Elemer, Jul 29 2002

Keywords

Comments

Occurrences of lengths [1-10] for n<=10000000 are {0,0,64,4662,310495,6468633,3041909,173579,658,0}.

Examples

			For lengths n=3, 4, 5, 6, 7, 8 the corresponding lists are: {4, 7, 9}, {1, 2, 3, 4}, {29, 40, 42, 43, 44}, {153, 190, 196, 198, 199, 200}, {4913, 5570, 5649, 5656, 5658, 5659, 5660} and {73114, 80343, 80982, 81039, 81046, 81048, 81049, 81050}.
		

Crossrefs

Programs

  • Mathematica
    lfp[x_] := Length[FixedPointList[x + PrimePi[ # ] + 1 &, x]]-1 t=Table[0, {15}]; Do[s=lfp[n]; If[s<16&&t[[s]]==0, t[[s]]=n], {n, 1, 100000}]; t

Formula

a(n) = Min{k: A073259(k)=n}

Extensions

a(10)-a(11) from Sean A. Irvine, Nov 22 2024

A073439 Numbers k such that A073259(k)=4: the length of iteration-transient leading to k-th composite number equals 4.

Original entry on oeis.org

1, 2, 3, 6, 7, 10, 11, 12, 14, 15, 19, 20, 21, 25, 26, 28, 30, 32, 33, 34, 37, 38, 39, 42, 44, 45, 48, 49, 50, 51, 53, 54, 55, 57, 58, 59, 61, 62, 63, 65, 66, 67, 68, 72, 73, 74, 75, 77, 78, 81, 82, 84, 85, 86, 87, 88, 96, 97, 98, 100, 101, 102, 104, 106, 107, 108, 114, 116, 117, 118, 119, 120, 121, 122, 123, 124, 126, 127, 129, 130, 131, 132, 134, 135, 136, 137, 140, 141, 142, 143, 144, 145, 148
Offset: 1

Views

Author

Labos Elemer, Jul 31 2002

Keywords

Examples

			The sequence is probably finite and given in full. a(1)=1: the fixed point list from m=a(1) to composite[m] is: {1,2,3,4}, the length is 4; largest term seems to be a(4662)=77629, with transient list {77629,85259,85933,85990}. The terms appears in bursts of consecutive integers. A chain of 37 consecutive numbers starts at 28046.
		

Crossrefs

Programs

  • Mathematica
    lfp[x_] := Length[FixedPointList[x+PrimePi[ # ]+1&, x]]-1 Do[s=lfp[n]; If[Equal[s, 4], Print[n]], {n, 1, 10000000}]

Extensions

Offset corrected by Sean A. Irvine, Nov 28 2024
Showing 1-2 of 2 results.