|
| |
|
|
A037278
|
|
Replace n by concatenation of its divisors.
|
|
17
| |
|
|
1, 12, 13, 124, 15, 1236, 17, 1248, 139, 12510, 111, 1234612, 113, 12714, 13515, 124816, 117, 1236918, 119, 12451020, 13721, 121122, 123, 1234681224, 1525, 121326, 13927, 12471428, 129, 12356101530, 131, 12481632, 131133, 121734
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| a(n) is union of A176555(n) for n >= 1 and A176556(n) for n >= 2. See A176553 (numbers m such that concatenations of divisors of m are noncomposites) and A176554 (numbers m such that concatenations of divisors of m are nonprimes). [From Jaroslav Krizek (jaroslav.krizek(AT)atlas.cz), Apr 21 2010]
a(n) = concatenation of n-th row of the triangle in A027750.
|
|
|
LINKS
| R. Zumkeller, Table of n, a(n) for n = 1..10000
|
|
|
MATHEMATICA
| a[n_] := ToExpression[ StringJoin[ ToString /@ Divisors[n] ] ]; Table[ a[n], {n, 1, 34}] (* From Jean-François Alcover, Dec 01 2011 *)
|
|
|
PROG
| (Haskell)
a037278 n =
read $ concatMap show [d | d <- [1..n], mod n d == 0] :: Integer
-- Reinhard Zumkeller, Aug 07 2011
|
|
|
CROSSREFS
| Sequence in context: A064003 A135123 A129476 * A164852 A033048 A108771
Adjacent sequences: A037275 A037276 A037277 * A037279 A037280 A037281
|
|
|
KEYWORD
| nonn,easy,base,nice
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com).
|
|
|
EXTENSIONS
| More terms from Erich Friedman (erich.friedman(AT)stetson.edu).
|
| |
|
|
