Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%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