|
%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_
|
