Baxter-Hickerson Function

Author

Eric W. Weisstein
March 13, 2002

This notebook downloaded from http://mathworld.wolfram.com/notebooks/IntegerSequences/Baxter-HickersonFunction.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/Baxter-HickersonFunction.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Values

f[n_]:=(2*10^(5*n)-10^(4*n)+2*10^(3*n)+10^(2*n)+10^n+1)/3

Table[f[n],{n,0,15}]

FormatSequence[Table[f[n],{n,0,15}],052427,1,
Name->"Baxter-Hickerson function.",
Cross->{51832,51833},
html["Baxter-HickersonFunction"]
]

Primes

l={1,7,133};
Do[
If[PrimeQ[f[n]],AppendTo[l,n];Print[l]];
Print[n,"..."],
{n,588,1000}
]

f/@{0,1,7,133}

Length[IntegerDigits[f[133]]]