%I #33 Jul 26 2017 23:40:24
%S 4199030,29465852,120888092,259858324,260378492,410832532,775397948,
%T 785187524,903217276,989226964,1609445332,2358115084,3254323124,
%U 3381352084,3381872252,3781448788,3782267372,5056717796,5065605532,5066413508,9210347984,9772585048,9776437996,9843119884
%N 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.
%C 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
%H M. F. Hasler, <a href="/A258884/a258884.txt">Table of n, a(n) for n = 1..60</a>
%e a(1) = 4199030 = 2*5*11*59*647.
%e a(2) = 29465852 = 2^2*13*23*71*347.
%e a(3) = 120888092 = 2^2*13*23*61*1657.
%o (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
%Y Cf. A002975, A258401, A258882, A258883, A258885.
%K nonn
%O 1,1
%A _Douglas E. Iannucci_ and _Robert G. Wilson v_, Jun 14 2015
%E Definition edited (to require p > 2) by _M. F. Hasler_, Jul 08 2016
%E Incorrect Mathematica code (allowed 114141404156) removed by _M. F. Hasler_, Jun 29 2016
|