%I #16 Jul 17 2023 17:01:30
%S 0,0,2,0,5,0,6,6,5,0,7,0,13,5,14,0,17,0,5,16,13,0,15,5,5,9,3,0,25,0,
%T 14,14,13,22,1,0,29,1,25,0,27,0,11,20,39,0,47,28,5,11,29,0,11,16,43,
%U 34,55,0,15,0,45,22,14,58,1,0,41,47,47,0,57,0,15,55,15,18,51,0,65,12,77,0,53,7
%N a(n) is the concatenation of the prime factors (with multiplicity) of n mod n.
%C a(n) = 0 if n is prime.
%C The first composite n for which a(n)=0 is 28749. Are there others?
%C There are no other composite n terms for which a(n)=0 up to 5 million. - _Harvey P. Dale_, Jul 17 2023
%H Robert Israel, <a href="/A340592/b340592.txt">Table of n, a(n) for n = 2..10000</a>
%F a(n) = A037276(n) mod n.
%e For n = 20 = 2*2*5, a(20) = 225 mod 20 = 5.
%p dcat:= proc(L) local i,x;
%p x:= L[-1];
%p for i from nops(L)-1 to 1 by -1 do
%p x:= 10^(1+ilog10(x))*L[i]+x
%p od;
%p x
%p end proc:
%p f:= proc(n) local F;
%p F:= sort(ifactors(n)[2],(a,b) -> a[1] < b[1]);
%p dcat(map(t -> t[1]$t[2], F)) mod n;
%p end proc:
%p map(f, [$2..100]);
%t Table[Mod[FromDigits[Flatten[IntegerDigits/@Table[#[[1]],#[[2]]]&/@FactorInteger[n]]],n],{n,2,100}] (* _Harvey P. Dale_, Jul 17 2023 *)
%o (Python)
%o from sympy import factorint
%o def a(n):
%o if n == 1: return 0
%o return int("".join(str(f) for f in factorint(n, multiple=True)))%n
%o print([a(n) for n in range(2, 86)]) # _Michael S. Branicky_, Jan 18 2022
%Y Cf. A037276, A340594, A340595.
%K nonn,base
%O 2,3
%A _J. M. Bergot_ and _Robert Israel_, Jan 12 2021