|
| |
|
|
A077292
|
|
Numbers n with property that n divides one of the concatenations (n-1)(n-2) or (n-2)(n-1).
|
|
0
|
|
|
|
2, 3, 4, 6, 7, 17, 34, 51, 67, 167, 334, 501, 667, 1667, 3334, 5001, 6667, 14286, 16667, 33334, 50001, 66667, 166667, 333334, 500001, 666667, 1666667, 2857143, 3333334, 5000001, 6666667, 16666667, 33333334, 50000001, 66666667
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
No more terms through 10^8. - Ryan Propper (rpropper(AT)stanford.edu), Oct 11 2005
|
|
|
LINKS
|
Table of n, a(n) for n=1..35.
|
|
|
EXAMPLE
|
6 and 7 are members: 6 divides 54, 7 divides 56.
|
|
|
MATHEMATICA
|
c[r_, s_] := ToExpression[ToString[r] <> ToString[s]]; Do[k = c[n-1, n-2]; m = c[n-2, n-1]; If[Mod[k, n] == 0 || Mod[m, n] == 0, Print[n]], {n, 2, 10^8}] (Propper)
ccQ[n_]:=Module[{id1=IntegerDigits[n-1], id2=IntegerDigits[n-2]}, Divisible[ FromDigits[ Join[id1, id2]], n]||Divisible[FromDigits[Join[id2, id1]], n]]; Select[Range[2, 67000000], ccQ] (* Harvey P. Dale, Jun 18 2012 *)
|
|
|
CROSSREFS
|
Sequence in context: A162570 A073639 A130776 * A171249 A036413 A069912
Adjacent sequences: A077289 A077290 A077291 * A077293 A077294 A077295
|
|
|
KEYWORD
|
base,nonn
|
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Nov 03 2002
|
|
|
EXTENSIONS
|
More terms from Ray G. Opao, Sep 28 2005
2 more terms from Ryan Propper (rpropper(AT)stanford.edu), Oct 11 2005
|
|
|
STATUS
|
approved
|
| |
|
|
