Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #5 Sep 27 2024 08:33:11
%S 1,2,3,8,10,14,18,53,1437,6222,40874
%N Sorted positions of first appearances in A376264 (run-sums of first differences of nonsquarefree numbers).
%e The sequence of nonsquarefree numbers (A013929) is:
%e 4, 8, 9, 12, 16, 18, 20, 24, 25, 27, 28, 32, 36, 40, 44, 45, 48, 49, 50, ...
%e with first differences (A078147):
%e 4, 1, 3, 4, 2, 2, 4, 1, 2, 1, 4, 4, 4, 4, 1, 3, 1, 1, 2, 2, 2, 4, 3, 1, ...
%e with runs:
%e (4),(1),(3),(4),(2,2),(4),(1),(2),(1),(4,4,4,4),(1),(3),(1,1),(2,2,2), ...
%e with sums (A376264):
%e 4, 1, 3, 4, 4, 4, 1, 2, 1, 16, 1, 3, 2, 6, 4, 3, 1, 8, 3, 1, 4, 1, 3, 4, 4, ...
%e with first appearances at (A376266):
%e 1, 2, 3, 8, 10, 14, 18, 53, 1437, 6222, 40874, ...
%t q=Total/@Split[Differences[Select[Range[10000], !SquareFreeQ[#]&]]]//Most;
%t Select[Range[Length[q]],!MemberQ[Take[q,#-1],q[[#]]]&]
%Y These are the positions of first appearances in A376264.
%Y The unsorted version is A376265.
%Y A000040 lists the prime numbers, differences A001223.
%Y A000961 and A246655 list prime-powers, differences A057820.
%Y A005117 lists squarefree numbers, differences A076259 (ones A375927).
%Y A013929 lists nonsquarefree numbers, differences A078147.
%Y A333254 lists run-lengths of differences between consecutive primes.
%Y A376267 gives run-lengths of first differences of nonsquarefree numbers.
%Y A376312 gives run-compression of first differences of nonsquarefree numbers.
%Y A376305 gives run-compression of differences of squarefree numbers, ones A376342.
%Y Cf. A037201, A053797, A053806, A120992, A373197, A373198, A373413, A373822, A375707, A376306, A376307, A376521.
%K nonn,more
%O 1,2
%A _Gus Wiseman_, Sep 27 2024