|
%I #12 Aug 12 2020 14:37:04
%S 1,31,421,71,131,191,2551,311,391331,431,48241612864321,911371,971,
%T 1031,1091,1173913931,1511,1571,1811,1931,2111,2411,24412261421,
%U 24719131,2711,289171,29214673421,3014371,30910331,32565251351,3371,3491,3671
%N Noncomposite reverse concatenations of divisors of n, sorted by n.
%H Robert Israel, <a href="/A175355/b175355.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A176558(A089374(n)).
%F a(n) = A069582(n-1), n>1. [_R. J. Mathar_, May 03 2010]
%e For n = 9; a(9) = 391331 because A089374(9) = 39 and divisors of 39 are 1, 3, 13, 39; reverse concatenation of divisors A176558(21) = 391331 is noncomposite.
%p rcd:= proc(n) local D,T,i;
%p D:= sort(convert(numtheory:-divisors(n),list));
%p T:= D[1];
%p for i from 2 to nops(D) do
%p T:= T + 10^(1+ilog10(T))*D[i]
%p od;
%p T
%p end proc:
%p select(t -> t=1 or isprime(t), map(rcd, [$1..1000])); # _Robert Israel_, Aug 12 2020
%Y Subsequence of A176558(n). Supersequence of A055781.
%K nonn,base
%O 1,2
%A _Jaroslav Krizek_, Apr 20 2010
%E Edited by _Charles R Greathouse IV_, Apr 30 2010
|
