OFFSET
1,2
COMMENTS
Phi is Euler's totient function in this context.
PROG
(PARI) /* brute force search */ ppu(b)= { filename = "c:/math/ppu.txt"; if (!b, b=100000); v = listcreate(b+1); for(x=1, b, listput(v, eulerphi(eulerphi(x)))); z=b\5; sv = listcreate(z+1); for(y=1, z, listput(sv, 0)); ct = 0; for(i=1, b, vi = 1; j= i + vi; noMatch = 1; /*print("Here is ", i, " and ", v[i]); */ while( (noMatch==1) && (vi < z) && (j < b), if (v[i]==v[j], if (sv[vi] == 0, /*print("*** Matching on ", vi, " for ", i); */ sv[vi] = i; ct+=1; ); noMatch = 0; , vi += 1; j += 1 ) ); if(nomatch==1, print(i, " couldn't find a match before ", j)) ); for(i=1, z, if (sv[i]!=0, print(i, ") ", sv[i]); write(filename, sv[i], ", ") , return(0)) ) }
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Fred Schneider, Nov 11 2009
EXTENSIONS
Edited by N. J. A. Sloane, Nov 12 2009
STATUS
approved