|
Search: id:A083536
|
|
|
| A083536 |
|
First difference sequence of A005278, the numbers not in the range of cototient-function, A051953[]. Differences between consecutive noncototient numbers. |
|
+0
6
|
|
| 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, 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, 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, 3, 19, 2
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
FORMULA
|
a(n)=A005278[n+1]-A005278[n]
|
|
EXAMPLE
|
Missing terms from A051953 are 10,26,34,50,.. so their difference sequence starts with 16,8,16,...
|
|
MATHEMATICA
|
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];
|
|
CROSSREFS
|
Adjacent sequences: A083533 A083534 A083535 this_sequence A083537 A083538 A083539
Sequence in context: A033336 A102270 A102272 this_sequence A040243 A070535 A070579
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), May 20 2003
|
|
|
Search completed in 0.002 seconds
|
