OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
EXAMPLE
A048864(x) = 13: S = {}, a(13) = 0;
A048864(x) = 16: S = {144}, a(16) = 1;
A048864(x) = 22: S = {57,92}, a(22) = 2;
A048864(x) = 7: S = {13,34,50}, a(7) = 3;
A048864(x) = 4: S = {15,22,54,84}, a(4) = 4;
A048864(x) = 15: S = {35,64,68,156,240}, a(15) = 5;
A048864(x) = 2: S = {5,10,14,20,42,60}, a(2) = 6;
A048864(x) = 6: S = {11,21,32,40,72,78,210}, a(6) = 7;
A048864(x) = 78: S = {133,177,268,440,490,552,870,990}, a(78) = 8;
PROG
(PARI) listn(nn) = {my(v = vector(10^5, n, eulerphi(n) - (primepi(n) - omega(n)))); vector(nn, k, if (#(w=Vec(select(x->(x==k), v, 1))) == 0, 0, #w)); } \\ Michel Marcus, Feb 23 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Oct 10 2002
STATUS
approved