OFFSET
1,2
COMMENTS
A subsequence of A109879.
EXAMPLE
19 = 3^3-2^3 and 91 = 6^3-5^3.
MATHEMATICA
okQ[x_]:=Module[{revx=FromDigits[Reverse[IntegerDigits[x]]]}, And@@(And@@IntegerQ/@(n/.Solve[1+3n+3n^2==x, n])&&And@@IntegerQ/@(n/.Solve[1+3n+3n^2==revx, n]))] Select[Range[90000], okQ] - Harvey P. Dale, Aug 06 2007
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Jul 10 2005
EXTENSIONS
More terms from Harvey P. Dale, Aug 06 2007
23 more terms from Donovan Johnson, Feb 21 2008
STATUS
approved