|
|
A354929
|
|
Numbers of the form 2*p^e, with p an odd prime and e >= 2.
|
|
2
|
|
|
18, 50, 54, 98, 162, 242, 250, 338, 486, 578, 686, 722, 1058, 1250, 1458, 1682, 1922, 2662, 2738, 3362, 3698, 4374, 4394, 4418, 4802, 5618, 6250, 6962, 7442, 8978, 9826, 10082, 10658, 12482, 13122, 13718, 13778, 15842, 18818, 20402, 21218, 22898, 23762, 24334, 25538, 29282, 31250, 32258
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Select[Range[33000], IntegerExponent[#, 2] == 1 && CompositeQ[#/2] && PrimePowerQ[#/2] &] (* Amiram Eldar, Jun 18 2022 *)
|
|
PROG
|
(PARI) isA354929(n) = ((2==(n%4)) && (isprimepower(n/2)>1));
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|