|
|
|
|
0, 1, 3, 4, 5, 6, 12, 14, 19, 31, 46, 52, 68, 70, 74, 89, 104, 123, 128, 146, 158, 176, 199, 207, 229, 257, 264, 311, 339, 370, 375, 391, 396, 409, 428, 446, 514, 532, 559, 578, 595, 650, 666, 695, 727, 728, 801, 807, 843, 861, 929, 939, 953, 1025, 1087, 1134, 1143, 1164, 1197, 1221, 1282, 1314, 1327
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Union@ FoldList[Max, Table[Count[Range[k], _?(Nor[CoprimeQ[#, k], GCD[k^2 - 1, #] > 1, Divisible[k, Times @@ FactorInteger[#][[All, 1]] ] ] &)], {k, 2^11}] ]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|