A262509 Numbers n such that there is no other number k for which A155043(k) = A155043(n).
0, 119143, 119147, 119163, 119225, 119227, 119921, 119923, 120081, 120095, 120097, 120101, 120281, 120293, 120349, 120399, 120707, 120747, 120891, 120895, 120903, 120917, 120919, 121443, 121551, 121823, 122079, 122261, 122263, 122273, 122277, 122813, 122961, 123205, 123213, 123223, 123237, 123257, 123765, 24660543, 24660549, 24662311, 24662329, 24663759, 24664997, 24665023, 24665351
Offset: 0
Keywords
Links
- Antti Karttunen, Table of n, a(n) for n = 0..68
Crossrefs
Programs
-
PARI
\\ Compute A262508 and A262509 at the same time: allocatemem((2^31)+(2^30)); \\ The limits used are quite ad hoc. Beware of the horizon-effect if you change these. \\ As a post-check, test that A262509(n) = A259934(A262508(n)) for all the terms produced by this program. uplim1 = 43243200 + 672; \\ = A002182(54) + A002183(54). uplim2 = 36756720; \\ = A002182(53). uplim3 = 10810800; \\ v155043 = vector(uplim1); v262503 = vector(uplim3); v262507 = vector(uplim3); v155043[1] = 1; v155043[2] = 1; for(i=3, uplim1, v155043[i] = 1 + v155043[i-numdiv(i)]); A155043 = n -> if(!n,n,v155043[n]); for(i=1, uplim1, v262503[v155043[i]] = i; v262507[v155043[i]]++; if(!(i%1048576),print1(i,", "))); A262503 = n -> if(!n,n,v262503[n]); A262507 = n -> if(!n,1,v262507[n]); k=0; for(n=0, uplim3, if((1==A262507(n)) && (A262503(n) <= uplim2), write("b262508.txt", k, " ", n); write("b262509.txt", k, " ", A262503(n)); k++));
-
Scheme
(define (A262509 n) (A261089 (A262508 n)))
Comments