A375119 - OEIS

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

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give

A375119

Begin A060403 with n instead of 1; a(n) is the position in the new sequence at which it generates the same numbers as A060403 or a(n)=0 if it doesn't.

1, 4, 2, 1, 3, 3, 6, 1, 2, 2, 5, 5, 1, 5, 5, 6, 4, 4, 10, 4, 1, 4, 5, 5, 3, 3, 9, 9, 9, 1, 3, 9, 4, 4, 2, 1, 8, 8, 8, 2, 8, 5, 3, 3, 1, 2, 27, 7, 7, 4, 7, 5, 2, 1, 3, 3, 26, 6, 6, 4, 6, 26, 1, 2, 3, 3, 25, 5, 5, 25, 5, 25, 1, 2, 3, 3, 24, 4, 4, 3, 4, 24, 113

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

COMMENTS

The indices of the matching entries of A060403 and this sequence do not necessarily have to be the same (see Examples).

LINKS

James C. McMahon, Table of n, a(n) for n = 1..1000

Wikipedia,Kruskal count

EXAMPLE

Using () to indicate the point at which the new sequence generates the same numbers as A060403:

A060403: 1, 4, 8, 13, 21, 30, 36, 45... a(1)=1

Start=2: 2, 6, 9, (13), 21, 30, 36, 45... a(2)=4

Start=3: 3, (8), 13, 21, 30, 36, 45... a(3)=2

Start=4: (4), 8, 13, 21, 30, 36, 45... a(4)=1

MATHEMATICA

"Words"]], LetterQ ]]&, 1, 200] (* oneseq is A060403 *); seq={}; Do[ i=1; s=n; While[!MemberQ[oneseq, s], s=s+Length[Select[Characters[IntegerName[s, "Words"]], LetterQ ]]; i++]; AppendTo[seq, i], {n, 83}]; seq

CROSSREFS

Cf. A060403.

Sequence in context: A271310 A071406 A337063 * A010311 A346972 A326485

Adjacent sequences: A375116 A375117 A375118 * A375120 A375121 A375122

KEYWORD

nonn,base

AUTHOR

James C. McMahon, Jul 30 2024

STATUS

approved