%I A066488
%S A066488 341,1105,1387,1729,2047,2465,2701,2821,3277,4033,4369,4681,5461,6601,
%T A066488 7957,8321,8911,10261,10585,11305,13741,13747,13981,14491,15709,15841,
%U A066488 16705,18721,19951,23377,29341,30121,30889,31417,31609,31621,34945
%N A066488 Composite numbers n which divide A001045(n-1).
%t A066488 a[0] = 0; a[1] = 1; a[n_] := a[n] = a[n - 1] + 2a[n - 2]; Select[ Range[50000], 
               IntegerQ[a[ # - 1]/ # ] && !PrimeQ[ # ] && # != 1 & ]
%Y A066488 Cf. A066047.
%Y A066488 Sequence in context: A043576 A153508 A087835 this_sequence A083876 A068216 
               A038473
%Y A066488 Adjacent sequences: A066485 A066486 A066487 this_sequence A066489 A066490 
               A066491
%K A066488 easy,nonn
%O A066488 1,1
%A A066488 Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 03 2002