|
| |
|
|
A136410
|
|
Numbers n having a proper divisor d > 2 such that d-1 divides n-1.
|
|
0
| |
|
|
9, 15, 16, 21, 25, 27, 28, 33, 36, 39, 40, 45, 49, 51, 52, 57, 63, 64, 65, 66, 69, 75, 76, 81, 85, 87, 88, 91, 93, 96, 99, 100, 105, 111, 112, 117, 120, 121, 123, 124, 125, 126, 129, 133, 135, 136, 141, 144, 145, 147, 148
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| E.g. consider n=91: we can take d=7, 7 divides 91 and 6 divides 90, so 91 is in the sequence.
|
|
|
MATHEMATICA
| fQ[n_] := Block[{d = Select[ Take[ Divisors@ n, {2, -2}], # > 2 &]}, Union[IntegerQ /@ ((n - 1)/(d - 1))][[ -1]]]; Select[ Range@ 175, !PrimeQ@ # && fQ@ # &] (* Robert G. Wilson v, (rgwv(AT)rgwv.com), May 04 2008 *)
|
|
|
CROSSREFS
| Sequence in context: A184048 A058957 A105882 * A066942 A061838 A037002
Adjacent sequences: A136407 A136408 A136409 * A136411 A136412 A136413
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| J. Perry (johnandruth(AT)jrperry.orangehome.co.uk), Apr 13 2008
|
|
|
EXTENSIONS
| Definition, terms and offset corrected by M. F. Hasler (www.univ-ag.fr/~mhasler), May 01 2008
Edited by N. J. A. Sloane (njas(AT)research.att.com), May 10 2008
|
| |
|
|
