|
|
|
|
1, 1, 2, 2, 4, 4, 4, 4, 12, 12, 12, 12, 24, 24, 24, 24, 24, 48, 96, 96, 96, 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, 384, 384, 384, 384, 384, 768, 768, 768, 768, 768, 768, 768, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 3072, 3072, 3072, 3072, 3072
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
Starting at n=9, all known terms are of the form 3*2^k. - Ivan Neretin, May 01 2016
|
|
LINKS
|
|
|
MATHEMATICA
|
EulerPhi@ NestList[Function[n, SelectFirst[Range[n + 1, 10^4], Divisible[EulerPhi@ #, EulerPhi@ n] &]], 1, 55] (* Michael De Vlieger, May 01 2016, Version 10 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|