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.

A083536 First differences of noncototients A005278.

This page as a plain text file.
%I A083536 #23 Apr 08 2023 05:02:13
%S A083536 16,8,16,2,6,28,14,16,6,8,4,12,8,16,2,14,16,4,12,4,10,12,16,6,2,6,16,
%T A083536 2,6,12,16,14,4,2,16,4,6,14,8,10,8,24,30,4,4,8,8,28,2,12,2,2,10,8,8,4,
%U A083536 14,4,12,30,8,16,2,14,14,6,2,10,8,16,2,6,2,14,26,6,8,8,14,10,16,8,8,22,2,28
%N A083536 First differences of noncototients A005278.
%H A083536 Amiram Eldar, <a href="/A083536/b083536.txt">Table of n, a(n) for n = 1..10000</a>
%F A083536 a(n) = A005278(n+1) - A005278(n).
%e A083536 Missing terms from A051953 are 10,26,34,50,.. so their difference sequence starts with 16,8,16,...
%t A083536 t0[x_] := Table[j, {j, 1, x}] t=Table[w-EulerPhi[w], {w, 1, 10000}]; u=Union[%]; Delete[u-RotateRight[u], 1]; c=Complement[t0[10000], u]; Delete[c-RotateRight[c], 1];
%Y A083536 Cf. A051953, A005278.
%K A083536 nonn
%O A083536 1,1
%A A083536 _Labos Elemer_, May 20 2003
%E A083536 a(84)-a(85) corrected by _David Ng_, (an error that was noticed by Doug Phillips), Oct 31 2016
%E A083536 a(86) corrected and name simplified by _Omar E. Pol_, Nov 04 2016