|
|
A332839
|
|
Irregular triangle whose n-th row lists the integers x such that the number of nonprimes (i.e., 1 and composites) in the reduced residue set (RSS(x)) of x equals n, or 0 if there are no such x.
|
|
0
|
|
|
1, 2, 3, 4, 6, 8, 12, 18, 24, 30, 5, 10, 14, 20, 42, 60, 7, 9, 16, 36, 48, 90, 15, 22, 54, 84, 26, 28, 66, 120, 11, 21, 32, 40, 72, 78, 210, 13, 34, 50, 38, 44, 70, 150, 102, 114, 126, 17, 27, 46, 56, 96, 108, 180, 19, 33, 52, 132, 25, 45, 80, 168, 0, 23, 39, 58, 62, 110, 138
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
Triangle begins:
1, 2, 3, 4, 6, 8, 12, 18, 24, 30;
5, 10, 14, 20, 42, 60;
7, 9, 16, 36, 48, 90;
15, 22, 54, 84;
26, 28, 66, 120;
11, 21, 32, 40, 72, 78, 210;
...
|
|
MATHEMATICA
|
t = Select[ Table[{ EulerPhi[n] - PrimePi[n] + PrimeNu[n], n}, {n, 2000}], #[[1]] <= 100 &]; c = Complement[Range[100], First /@ t]; Last /@ (Sort@ Join[ Transpose[{c, 0 c}], t]) (* Giovanni Resta, Feb 26 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,tabf
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|