|
|
A258884
|
|
Primitive weird numbers, pwn, of the form 2^k*p*q*r*s with k > 0 and where p < q < r < s are odd primes.
|
|
13
|
|
|
4199030, 29465852, 120888092, 259858324, 260378492, 410832532, 775397948, 785187524, 903217276, 989226964, 1609445332, 2358115084, 3254323124, 3381352084, 3381872252, 3781448788, 3782267372, 5056717796, 5065605532, 5066413508, 9210347984, 9772585048, 9776437996, 9843119884
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
This differs from the sequence of primitive weird numbers with 5 (or 4 odd) distinct prime factors from a(54) on, the 54th number of that form being 114141404156 = 2^2 * 13^2 * 19 * 383 * 23203. - M. F. Hasler, Jul 08 2016
|
|
LINKS
|
|
|
EXAMPLE
|
a(1) = 4199030 = 2*5*11*59*647.
a(2) = 29465852 = 2^2*13*23*71*347.
a(3) = 120888092 = 2^2*13*23*61*1657.
|
|
PROG
|
(PARI) select(t -> factor(t)[, 2][^1]~ == [1, 1, 1, 1], A002975) \\ Assuming that A002975 is defined as vector holding enough terms of that sequence. - M. F. Hasler, Jul 08 2016
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Definition edited (to require p > 2) by M. F. Hasler, Jul 08 2016
Incorrect Mathematica code (allowed 114141404156) removed by M. F. Hasler, Jun 29 2016
|
|
STATUS
|
approved
|
|
|
|