cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A167410 Disorderly Numbers: numbers not in A167408 (orderly numbers).

This page as a plain text file.
%I A167410 #6 Nov 03 2016 04:38:10
%S A167410 3,4,6,10,14,15,16,18,21,22,24,25,26,28,30,32,33,34,35,36,39,40,42,44,
%T A167410 45,46,48,49,50,51,54,55,56,60,62,63,64,65,66,69,70,74,75,77,78,80,81,
%U A167410 82,84,85,86,88,90,91,92,93,94,95,96,98,99,100,102,104,105,106,108
%N A167410 Disorderly Numbers: numbers not in A167408 (orderly numbers).
%H A167410 A. Weimholt, <a href="/A167410/b167410.txt">Table of n, a(n) for n=1,...,10000</a>
%e A167410 3 is disorderly because there exists no K > 2=tau(3), such that {1,3} == {1,2} mod K.
%t A167410 orderlyQ[n_] := (For[dd = Divisors[n]; tau = Length[dd]; k = 3, k <= Max[tau + 4, Last[dd] - 2], k++, If[Union[Mod[dd, k]] == Range[tau], Return[True]]]; False); Select[Range[120], !orderlyQ[#]&] (* _Jean-François Alcover_, Nov 03 2016 *)
%Y A167410 Cf. A167408 - Orderly Numbers
%Y A167410 Cf. A167409 - Very Orderly Numbers ( K = tau(N)+1 )
%Y A167410 Cf. A167411 - Minimal K Values for the Orderly Numbers
%K A167410 nonn
%O A167410 1,1
%A A167410 _Andrew Weimholt_, Nov 03 2009