%I #24 Apr 02 2015 18:13:07
%S 2,3,4,7,8,15,22,43,44,87,130,259,302,603,904,1807
%N Numbers n such that n-1 is squarefree and every prime divisor of n-1 is in the sequence.
%C The complement of A227006.
%C 1807 is the last term in this sequence. - _Charles R Greathouse IV_, Jun 27 2013
%H J. M. Grau, A. M. Oller-Marcén and J, Sondow, <a href="http://arxiv.org/abs/1309.7941">On the congruence 1^n+2^n+...+n^n == d (mod n), where d divides n</a>, arXiv preprint arXiv:1309.7941, 2013
%t Needs["NumberTheory`NumberTheoryFunctions`"];Is[2] = True; Is[{}] = True; Is[n_] := Is[n] = If[ListQ[n], Is[n[[1, 1]]] && Is[Rest[n]], SquareFreeQ[n - 1] && Is[fa[n - 1]]]; Select[1 + Range@10000, Is]
%Y Cf. A227006.
%K nonn,fini,full
%O 1,1
%A _José María Grau Ribas_, Jun 27 2013