|
|
A295221
|
|
Numbers k such that 2*A243823(k) = k.
|
|
1
|
|
|
156, 190, 224, 286, 352, 416, 544, 578, 608, 736, 928, 992, 1184, 1312, 1376, 1504, 1696, 1888, 1952, 33555776, 33557824, 33558208, 33558464, 33558592, 33559616, 33560768, 33560896, 33562304, 33562432, 33563456, 33564992, 33567808, 33568448, 33568576, 33569216
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Observations:
1. There is a large gap between a(19) and a(20).
2. Products 2^5 * prime(i), with 3 <= i <= 17, are in the sequence.
3. Products 2^6 * prime(j), with 43391 <= j <= 82025, are in the sequence.
4. a(1) = 2^2 * 3 * 13, and terms 190, 286, and 578 are even, but do not follow the pattern of 2^h*p prime.
|
|
LINKS
|
|
|
EXAMPLE
|
a(1) = 156 since 2 * (A010846(156) + A000010(156) - 1) = 2 * (31 + 48 - 1) = 2 * 78 = 156.
|
|
MATHEMATICA
|
Select[Range@ 3000, Function[n, 2 (n - (Count[Range@ n, _?(PowerMod[n, Floor@ Log2@ n, #] == 0 &)] + EulerPhi[n] - 1)) == n]] (* Michael De Vlieger, Nov 17 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|