OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
7303=67*109 is in the sequence because abs(67*phi-109) = 0.59172... < 1 and its prime factors have an unequal number of decimal digits.
MATHEMATICA
f[p_] := Module[{x = GoldenRatio * p}, p1 = NextPrime[x, -1]; p2 = NextPrime[p1]; q = If[x - p1 < p2 - x, p1, p2]; If[Abs[q - x] < 1, q, 0]]; seq = {}; p = 1; Do[p = NextPrime[p]; q = f[p]; If[q > 0 && IntegerLength[p] != IntegerLength[q], AppendTo[seq, p*q]], {1000}]; seq (* Amiram Eldar, Nov 29 2019 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Jason Earls, Jun 14 2005
EXTENSIONS
More terms from Donovan Johnson, Mar 06 2008
STATUS
approved