|
%I #20 Oct 26 2019 03:08:45
%S 2,33,54,55,74,85,91,92,93,115,116,133,141,142,143,144,145,158,159,
%T 175,200,205,206,212,213,214,215,216,247,295,296,301,302,323,324,325,
%U 326,332,391,392,422,445,451,535,536,542,565,632,685,686,721,722,799,800
%N Numbers n such that n through n+3 are divisible by the same number of distinct primes.
%H Amiram Eldar, <a href="/A045932/b045932.txt">Table of n, a(n) for n = 1..10000</a>
%t Transpose[Select[Partition[Range[900],4,1],Length[Union[PrimeNu[#]]] == 1&]][[1]] (* _Harvey P. Dale_, Apr 12 2013 *)
%Y Cf. A001221, A006049, A006073, A045933-A045938.
%K nonn
%O 1,1
%A _David W. Wilson_
|
