login
Replace n with concatenation of its divisors >1.
4

%I #23 Dec 31 2020 09:20:37

%S 0,2,3,24,5,236,7,248,39,2510,11,234612,13,2714,3515,24816,17,236918,

%T 19,2451020,3721,21122,23,234681224,525,21326,3927,2471428,29,

%U 2356101530,31,2481632,31133,21734,5735,23469121836,37,21938,31339

%N Replace n with concatenation of its divisors >1.

%H Reinhard Zumkeller, <a href="/A037277/b037277.txt">Table of n, a(n) for n = 1..10000</a>

%t FromDigits[Flatten[IntegerDigits/@Rest[Divisors[#]]]]&/@Range[40] (* _Harvey P. Dale_, Nov 06 2011 *)

%o (Haskell)

%o a037277 1 = 0

%o a037277 n = read $ concat $ map show $ tail $ a027750_row n

%o -- _Reinhard Zumkeller_, May 01 2012, Feb 07 2011

%o (Python)

%o from sympy import divisors

%o def a(n):

%o divisors_gt1 = divisors(n)[1:]

%o if len(divisors_gt1) == 0: return 0

%o else: return int("".join(str(d) for d in divisors_gt1))

%o print([a(n) for n in range(1, 40)]) # _Michael S. Branicky_, Dec 31 2020

%Y Cf. A027750, A037284, A037278, A106708.

%K nonn,easy,base,nice

%O 1,2

%A _N. J. A. Sloane_

%E More terms from _Erich Friedman_